Koşula göre İstediğim satırdaki hücreleri sayfa2 ye atmak

[THeKiNG20]

Kolay gelsin arkadaşlar herkese. Yapamadığım bir işlem var.

Resimde anlatacağım bunu.

Resimde de anlattığım gibi Sayfa2 ye atacak istediğim hücreleri. Bunu macro ile yapamadım vba konusunda da pek bir bilgim yok. Yardımlarınızı bekliyorum. Teşekkürler şimdiden

Örnek dosya ektedir arkadaşlar...

 

[gezgin-49]

örnek bir dosya eklerseniz daha çabuk çözüm bulunacaktır.

 

[THeKiNG20]

Dosyaya göre anlatacak olursam

Eğer Sayfa1 deki G8 e X değeri girilirse B8, D8, E8 ve G8 hücrelerini Sayfa2 deki sıradaki boş satıra kopyalaması gerekiyor.
Tabi burda G8 diye belirttim sadece ama bu her satır için geçerli

 

[İhsan Tank]

Dosyaya göre anlatacak olursam

Eğer Sayfa1 deki G8 e X değeri girilirse B8, D8, E8 ve G8 hücrelerini Sayfa2 deki sıradaki boş satıra kopyalaması gerekiyor.
Tabi burda G8 diye belirttim sadece ama bu her satır için geçerli

merhaba
boş bir module kopyalarak deneyiniz

Option Explicit
Sub Xleri_aktar()
Dim c As Range, sat As Long, ilkadres As Variant, asi As String
asi = MsgBox("Xleri Aktarıyorum Onaylıyor Musunuz_?", vbYesNo, "Onay")
If asi = vbNo Then Exit Sub
Sheets("Sayfa2").Range("A8:E" & Rows.Count).ClearContents
sat = 8
With Sheets("Sayfa1").Range("G:G")
Set c = .Find("X", LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Sheets("Sayfa2").Cells(sat, "A") = Sheets("Sayfa1").Cells(c.Row, "A")
Sheets("Sayfa2").Cells(sat, "B") = Sheets("Sayfa1").Cells(c.Row, "B")
Sheets("Sayfa2").Cells(sat, "C") = Sheets("Sayfa1").Cells(c.Row, "C")
Sheets("Sayfa2").Cells(sat, "D") = Sheets("Sayfa1").Cells(c.Row, "D")
Sheets("Sayfa2").Cells(sat, "E") = Sheets("Sayfa1").Cells(c.Row, "G")
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
End If
End With
MsgBox "Xleri Aktardım", vbInformation, "Bitiş"
End Sub

 

[THeKiNG20]

teşekkürler tam istediğim gibi iyi çalışmalar dilerim

 

[İhsan Tank]

teşekkürler tam istediğim gibi iyi çalışmalar dilerim

rica ederim
:yazici: