Excel VPA yardım

[Phyx]

Merhaba arkadaşlarım,

worksheet1'deki A1 hücresindeki değer X ise worksheet2'deki X. row'u tamamen kopyalayıp worksheet1'deki 2. rowa yapıştırsın istiyorum

yani A1'deki değer 5 ise 5.row'u gibi

bi el atabilirseniz süper olur

[ginaly]

row'u 2. satıra yapıştırmayı anlamadım tam.
Yani Sheet1'deki 2. satıra mı gelecek komple, o sırada 2. satırda olan veriyi overwrite mı edecek?

[Phyx]

evet aynen öyle

Worksheet1deki A1'de hangi value varsa
Worksheet2deki o value row'u komple koplayayıp
Worksheet1deki 2.row'a overwrite ederek komple yapıştıracak

[ginaly]

Peki sheet1'de o sırada A2'deki veri silinmiş olacak, A2'deki veriyi de sheet2'de aramayacak mı?

[Phyx]

yok hayır A2 boş, sadece A1deki veri değişecek sürekli

[ginaly]

Anladığım kadarıyla şöyle bir şey işini görür

said:

	Sub paticik()

	

	Dim r As Variant

	

	r = Sheets("Sheet1").Range("A1").Value

	

	Sheets("Sheet2").Rows(r & ":" & r).Copy

	Sheets("Sheet1").Rows("2:2").Select

	ActiveSheet.Paste

	

	End Sub

	

[Phyx]

BABA

yüreğine sağlık, çok teşekkürler

[ginaly]

NEDEMEK GARDAŞ

[pulkas]

https://www.youtube.com/watch?v=0nbkaYsR94c