Soru 11

11. sorumuzla devam edelim. Aşağıdaki gibi bir tablomuz var.

Soldaki tablodaki değerleri, sağdaki tablodaki gibi düzenlemek istiyoruz. 2 koşulumuz var. Hem biçim sayı olacak hem de hane sayısı 6 olacak.

Formül ya da makro ile yapabilirsiniz.

Dosyayı buradan indirebilir, cevaplarınızı yorum olarak yazabilirsiniz.


CEVAP

=EĞER(VE(UZUNLUK(A2)=6;ESAYIYSA(A2));”WW” & A2; A2)

Similar Posts

11 Comments

  1. =EĞER(VE(UZUNLUK(A2)=6;ESAYIYSA(A2));”WW”&A2;A2)

  2. Merhaba,
    Formül ile
    =EĞER(VE(UZUNLUK(A2)=6;ESAYIYSA(A2));”WW”&A2;A2)

    Makro ile
    Sub kod_duzenle()
    Range(“H2:H” & Range(“A” & Rows.Count).End(xlUp).Row).ClearContents
    For x = 2 To Range(“A” & Rows.Count).End(xlUp).Row
    If Len(Cells(x, “A”)) = 6 And IsNumeric(Cells(x, “A”)) Then
    Cells(x, “H”) = “WW” & Cells(x, “A”)
    Else
    Cells(x, “H”) = Cells(x, “A”)
    End If
    Next x
    End Sub

  3. Formül ile
    =+IF(AND(ISTEXT(A2)=FALSE;LEN(A2)=6);CONCATENATE(“WW”;A2);A2)
    veya
    =+IF(AND(ISNUMBER(A2)=TRUE;LEN(A2)=6);CONCATENATE(“WW”;A2);A2)

    Makro ile
    Sub deneme()

    For i = 2 To 10
    If IsNumeric(Cells(i, 1)) = True And Len(Cells(i, 1)) = 6 Then
    Cells(i, 8) = “WW” & Cells(i, 1)
    Else
    Cells(i, 8) = Cells(i, 1)
    End If
    Next i
    End Sub

  4. =EĞER(VE(UZUNLUK(A2)=6;ESAYIYSA(A2));”WW” & A2; A2)

  5. İyi akşamlar Musafa Hocam…

    Cevap : =EĞER(VE(ESAYIYSA(A2);UZUNLUK(A2=6));”WW”&A2;A2)

    Kolay gelsin…

  6. Bir yerde hata yapıyorum ama gecenin bu vakti durdu kafaaa…

    Private Sub ww()

    For i = 2 To 10

    If Cells(i, 1) = aplication.IsNumber Then Cells(i, 1) = “WW” & Cells(i, 1) Else GoTo atla

    atla:
    Next i

    End Sub

  7. =IF(LEN(A2)=6;IF(ISNUMBER(A2);CONCATENATE(“WV”;A2);A2);A2)

  8. =EĞER(VE(BAĞ_DEĞ_SAY(A2)=1;UZUNLUK(A2)=6);”WW”&A2;A2)

Yetiş perçin için bir yanıt yazın Yanıtı iptal et

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Bu site, istenmeyenleri azaltmak için Akismet kullanıyor. Yorum verilerinizin nasıl işlendiği hakkında daha fazla bilgi edinin.