aktarma

[Barons]

merhaba
ekteki dosyada sayfa 2'den sayfa 4'e veri aktarmam gerekiyor.Daha sonrada tersine sayfa 4'ten sayfa 2'ye veri aktarmam gerekiyor.
(aslında konunun özeti: sayfa 2 deki verilerin X değerlerinin karşılıklarını bulma işlemini sayfa 4'te gerçekleştiriyorum.Daha sonrada bu değerleri tekrar X değerlerine monte ediyorum.)

Yardımcı olursanız çok sevinirim.

 

[Barons]

sadece 1.seçeneğede razıyım.

 

[halit3]

sadece 1.seçeneğede razıyım.

1. soruna kod

Sub aktar()
Worksheets("4").Range("A3:C65000").ClearContents
sat = 3
For n = 2 To WorksheetFunction.CountA(Worksheets("2").Range("I2:I65000")) + 2
If Worksheets("2").Cells(n, 9).Value = "X" Then
Worksheets("4").Cells(sat, 1).Value = sat - 2
Worksheets("4").Cells(sat, 2).Value = Worksheets("2").Cells(n, 17).Value
sat = sat + 1
End If
Next n
For i = 2 To WorksheetFunction.CountA(Worksheets("2").Range("v2:v65000")) + 2
If Worksheets("2").Cells(i, 22).Value = "X" Then
Worksheets("4").Cells(sat, 1).Value = sat - 2
Worksheets("4").Cells(sat, 2).Value = Worksheets("2").Cells(i, 30).Value
sat = sat + 1
End If
Next i
End Sub

diğer sorunu anlıyamadım

 

[Barons]

Çok teşekkürler...1.sorunum halloldu.