Veri Aktarımı

[sandokan]

Tamam aldım halit3 tesekkür ederim

 

[halit3]

Tamam aldım halit3 tesekkür ederim

iyi çalışmalar

 

[mdoksat]

sayfa1 deki satırı sayfa 2 ye nasıl aktarabilirim?

merhabalar sayfa 1 deki J sütununda cevap boş işe bu satırı komple sayfa 2 ye aktarmak istiyorum başlığıyla birlikte. nasıl komut yazmam gerekiyor? Yardımcı olabilirmisiniz? dosyam ektedir.
Teşekkürler

 

[halit3]

merhabalar sayfa 1 deki J sütununda cevap boş işe bu satırı komple sayfa 2 ye aktarmak istiyorum başlığıyla birlikte. nasıl komut yazmam gerekiyor? Yardımcı olabilirmisiniz? dosyam ektedir.
Teşekkürler

bu kodu denermisiniz.

Sub aktar()
Worksheets("Sayfa2").Range("A2:K500").ClearContents
sat = 2
For i = 2 To Worksheets("Sayfa1").[C65536].End(3).Row
If Sheets("Sayfa1").Cells(i, 10).Value = "" Then
For j = 1 To 11
Sheets("Sayfa2").Cells(sat, j).Value = Sheets("Sayfa1").Cells(i, j).Value
Next j
sat = sat + 1
End If
Next i
End Sub