B12 Boşsa koşulu karşılamıyor

[Akif59]

1 Nolu Kod B12 Doluysa olduğu gibi kalaçak B12 boşsa 2 nolu kod gibi işlem yapacak şekilde düzenlenebilir mi

1 Nolu kod

For beden = 4 To 113
            If s1.Cells(droplu, beden) <> "" Then
                yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
                s2.Cells(yeni, "A") = "q:" & s1.Cells(droplu, beden)
             s2.Cells(yeni + 1, "A") = "s:" & Left(s1.Cells(12, beden), 2) & s1.[B12]
                If s1.[B12] = "" Then
                    s2.Cells(yeni + 1, "A") = s2.Cells(yeni + 1, "A") & ""
                Else
                    s2.Cells(yeni + 1, "A") = s2.Cells(yeni + 1, "A") & Right(s1.Cells(12, beden), 2)
                End If

2 Nolu kod

For beden = 4 To 113
            If s1.Cells(droplu, beden) <> "" Then
                yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
                s2.Cells(yeni, "A") = "q:" & s1.Cells(droplu, beden)
                s2.Cells(yeni + 1, "A") = "s:" & s1.Cells(12, beden)
            End If

 

[Muzaffer Ali]

Merhaba
Aşağıdaki kodu kendi kodlarınıza uyarlayın.

if range("B12")="" then
'B12 boşsa buradaki kodlar çalışır.
else
'B12 doluysa buradaki kodlar çalışır.
end if

 

[Akif59]

Sayın dalgalikur Teşekkür ederim