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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.