Koşullu veri aktarımı

[ozuberk]

Merhaba

Açıklama dosyanın içinde vardır

 

[Levent Menteşoğlu]

Aşağıdaki kodu bir modül sayfasına kopyalayın ve Veri sayfasında bir butona bağlayarak çalıştırın.
[vb:1:5479c70273]Sub personel()
c = 0
For a = 1 To Cells(65536, 1).End(xlUp).Row
If Sheets("Veri").Cells(a, 10) = "" Then
c = c + 1
For b = 1 To 8
Sheets("Personel").Cells(c + 1, b) = Sheets("Veri").Cells(a, b).Value
Next b
End If
Next a
End Sub[/vb:1:5479c70273]

 

[ozuberk]

Sayın Levent bey ilginiz için teşekkür ederim.