A1,A6,A11,A16,........An hücreleri kopyalamak

[zaferpur]

evet arkadaslar ritmik artıslı A1 den başlayıp A6,A11,A16 diye devam eden A300 lere varan hucrelerimi ana listemden ayıklayıp başka bir sayfaya kopyalamam lazım.macro ile yeni ilgilenmeye başlayan bu arkadasınıza macrolu bi çozum onerebilirseniz çok sevineceğim..yardımlar için şimdiden tesekkurler.saygılarımla...

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Sub Button1_Click()
Set s1 = Sheets("Sheet1") 
Set s2 = Sheets("Sheet2")
For i = 1 To 300 Step 5
toplam = toplam + s1.Cells(i, "a").Value
Next i
s2.Range("a1").Value = toplam
s2.Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[zaferpur]

tesekkur ederim

tesekkur ederim Ripek yardımların için.sayfa 1 deki verilerimi 2 sayfaya kopyalamıs ama 1.satıra boydan boya.ben a sutununa alt alta yerlestirsın dıye dusunuyordum.ama olsun genede tesekkurler yardımın için. macroları ogrenmek isteyen ben kendimi az buçuk yormalıyım ve nakledilenleri sutuna kopyalamalıyım.

 

[Recep İpek]

Sorunuzu yanlış anlamışım.

Kodları aşağıdaki şekilde değiştiriniz.

Sub Button1_Click()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
s = 0
For i = 1 To 300 Step 5
s = s + 1
s2.Cells(s, "a").Value = s1.Cells(i, "a").Value
Next i
s2.Select
Set s1 = Nothing
Set s2 = Nothing
End Sub