DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
iyi çalışmalarTamam aldım halit3 tesekkür ederim
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
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