- Katılım
- 16 Aralık 2010
- Mesajlar
- 23
- Excel Vers. ve Dili
- 2007
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
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
Son düzenleme: