sadece istenilen veriler aktarılsın

[mandrake2006]

arkadaşlar herkese iyi çalışmalar. bir sorum olacak.
sayfa1 deki tabloda sadece istediğim ( örneğin yanında A harfi olan sütünlar sayfa2 ye aktarılsın )

dosya örneği ekte.

saygılar iyi çalışmalar

 

[halit3]

arkadaşlar herkese iyi çalışmalar. bir sorum olacak.
sayfa1 deki tabloda sadece istediğim ( örneğin yanında A harfi olan sütünlar sayfa2 ye aktarılsın )

dosya örneği ekte.

saygılar iyi çalışmalar

bu kodu denermisiniz.?

Sub aktar()
Sheets("Sayfa2").Range("A2:H65000").ClearContents
sat = 2
For r = 2 To Worksheets("Sayfa1").Cells(Rows.Count, "B").End(3).Row
 
If Sheets("Sayfa1").Cells(r, "H").Value = "A" Then
For i = 1 To 8
Sheets("Sayfa2").Cells(sat, i).Value = Sheets("Sayfa1").Cells(r, i).Value
Next i
sat = sat + 1
End If
Next r
MsgBox "işlem temem"
End Sub

 

[cetinerlux]

bu kodu denermisiniz.?

Sub aktar()
Sheets("Sayfa2").Range("A2:H65000").ClearContents
sat = 2
For r = 2 To Worksheets("Sayfa1").Cells(Rows.Count, "B").End(3).Row
 
If Sheets("Sayfa1").Cells(r, "H").Value = "A" Then
For i = 1 To 8
Sheets("Sayfa2").Cells(sat, i).Value = Sheets("Sayfa1").Cells(r, i).Value
Next i
sat = sat + 1
End If
Next r
MsgBox "işlem temem"
End Sub

benim bir sorunum var ben bu kodu kulanmak istiyorum ama sayfamda yani sayfa1 belirlediğim hucre leri mesela sadece a.1 h2 gibi hucreleri seçip onları aktarım yapacağım koda ne gibi bir değişiklik yapmam lazım yardımcı olurmusunuz
birde aktarılan lar silinmeyecek alt alta sıralacanak şimdiden teşekkür ederim

 

[halit3]

benim bir sorunum var ben bu kodu kulanmak istiyorum ama sayfamda yani sayfa1 belirlediğim hucre leri mesela sadece a.1 h2 gibi hucreleri seçip onları aktarım yapacağım koda ne gibi bir değişiklik yapmam lazım yardımcı olurmusunuz
birde aktarılan lar silinmeyecek alt alta sıralacanak şimdiden teşekkür ederim

Sayın cetinerlux konu bütünlüğü bozulmaması için sorunuzu başka bir konu başlığı altında örnek dosya ekliyerek yenidin sorunuz.?