belli bir hücreyi kopyalama

[catalinastrap]

Range("C2:C21").Select
ActiveCell.FormulaR1C1 = "=RAND()"
Range("a1").Select
Range("H2").Select
Selection.Copy
Range("N2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("H2").Select
Selection.Copy

her sorguda h2 hücresini n2,n3,n4....n100 e kadar kopyalatmak istiyorum

 

[catalinastrap]

konu günceldir

 

[Necdet]

Merhaba,

Konu anlaşılmıyor ki. Bir sürü kod vermişsiniz, kodlarda fazlalıklar var. Siz ne yapmak istediğinizi açıkça yazın.

Bir sorguda H2 hücresini N2 ye aktaracak. İkinci sorguda N3 hücresine mi aktaracak ya da kopyalayacak?

Yoksa H2 hücresini N2:N100 hücresine kadar mı kopyalayacak?

Gördüğünüz gibi 2 şekilde de anlaşılabiliyor. Bu durumda çözüm beklemeniz biraz zor.

 

[halit3]

kod1:

Sub deneme1()

Range("H2").Copy
sat = Cells(Rows.Count, "N").End(3).Row + 1
If sat <= 2 Then sat = 2
Cells(sat, "N").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

kod2:

Sub deneme2()

sat = Cells(Rows.Count, "N").End(3).Row + 1
If sat <= 2 Then sat = 2
Cells(sat, "N").Value = Cells(2, "H").Value

End Sub

 

[halit3]

bu mesaj mükerrer oldu sildim

 

[catalinastrap]

çok teşekkür edrim işe yaradı

kod1:

Sub deneme1()

Range("H2").Copy
sat = Cells(Rows.Count, "N").End(3).Row + 1
If sat <= 2 Then sat = 2
Cells(sat, "N").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

kod2:

Sub deneme2()

sat = Cells(Rows.Count, "N").End(3).Row + 1
If sat <= 2 Then sat = 2
Cells(sat, "N").Value = Cells(2, "H").Value

End Sub

 

[catalinastrap]

ilave

Sub Makro1()

Columns("N:N").Select
Selection.ClearContents
Range("H2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-4]:R[19]C[-4])"
For i = 1 To 100
sat = Cells(Rows.Count, "N").End(3).Row + 1
If sat <= 2 Then sat = 2
Cells(sat, "N").Value = Cells(2, "H").Value
Next i
Range("H2").Select
Selection.ClearContents
End Sub


macro yu For i = 1 To 100 100 defa tekrar et diyorduk .ama excelde sayfa1 de "D1" hücresine yazdığım miktar kadar tekrar etsin yani sayfa 1 deki D1 hücresinden alsın tekrar miktarını

 

[halit3]

 For i = 1 To [COLOR="Red"]Val(Sheets("Sayfa1").Cells(1, "D").Value)[/COLOR]

 

[catalinastrap]

teşekkürler

çok teşekkür ederim