Veri yazma

[lion_25_77]

Arkadaşlar merhaba elimde bir excel dosyası var bu excel dosyasında aşağıdaki kodu yazıyorum. Bu koda eğer "Baba Adı" yoksa ve "Baba Adı" var altındaki satırda veri yoksa Sayfa3.Cells(vk + 1, 4).Value = boş veya "-" olmasını bir sonraki "Baba Adı" altındaki veriyi yazmaması için ek kod istiyorum. Sizden bu konuda yardım talep ediyorum Şimdiden tşklr

Private Sub CommandButton3_Click()
Dim vk

For k = 1 To 1000
For c = 1 To 50

If Sayfa1.Cells(k, c) = "Baba Adı" Then
Sayfa3.Cells(vk + 1, 4).Value = Sayfa1.Cells(k + 1, c)
vk = vk + 1
End If

Next c
Next k

End sub

 

[lion_25_77]

Yardım lütfen

 

[lion_25_77]

help please