Merhaba Arkadaşlar. Aşağıdaki Kodu formdan aldım. Yalnız arkadaşlarımızın forma yazdığı Bve C sutununun 10 uncu satırından itibaran başlayıp D ve E sutununun 3 üncü satına başlayarak verileri atması mümkün mü? Saygılar.
KOD:
Sheets("Sayfa1").Range("d1:e100").ClearContents
For x = 1 To 100
If Sheets("Sayfa1").Cells(x, 2) <> "" Then
If Sheets("Sayfa1").Cells(x, 3) <> "" Then
c = c + 1
Sheets("Sayfa1").Cells(c, 4) = Sheets("Sayfa1").Cells(x, 2)
Sheets("Sayfa1").Cells(c, 5) = Sheets("Sayfa1").Cells(x, 3)
End If
End If
Next
KOD:
Sheets("Sayfa1").Range("d1:e100").ClearContents
For x = 1 To 100
If Sheets("Sayfa1").Cells(x, 2) <> "" Then
If Sheets("Sayfa1").Cells(x, 3) <> "" Then
c = c + 1
Sheets("Sayfa1").Cells(c, 4) = Sheets("Sayfa1").Cells(x, 2)
Sheets("Sayfa1").Cells(c, 5) = Sheets("Sayfa1").Cells(x, 3)
End If
End If
Next