Sayfalar arası köprü de atlayarak veri aktarma

[mesuthaksoy]

Benzer konular var ama istediğime tam çare bulamadım.
Eğer birebir benzeri varsa da bulamadıysam çok özür dilerim.

1. sayfada a1 den a200 e kadar olan hücreleri
2. sayfada c1 den başlayarak
20 şer hücre artırarak c21, c41, c61... gibi hücrelere yazdırmak istiyorum.

Bunun için formül ya da kod verebilir misiniz mümkünse?
tşk ederim.

 

[Bagcivan]

örnek dosya ile sorunuzu sorarsanız daha anlaşılır olur ve istediğiniz cevabı almış olursunuz.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim sat As Integer
Dim s As Integer
s = 21
    For sat = 1 To Sayfa1.Cells(Rows.Count, "a").End(xlUp).Row
        Sayfa2.Cells(s, "c") = Sayfa1.Cells(sat, "a")
        s = s + 20
    Next
End Sub

 

[mesuthaksoy]

ekledim örnek dosyayı.
tşkler

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim sat As Integer
Dim s As Integer
s = 1
    For sat = 1 To Sayfa1.Cells(Rows.Count, "a").End(xlUp).Row
        Sayfa2.Cells(s, "c") = Sayfa1.Cells(sat, "a")
        s = s + 1
        If s > 1 Then GoTo 0
    Next
Exit Sub
0
s = 21
    For sat = 1 To Sayfa1.Cells(Rows.Count, "a").End(xlUp).Row
        Sayfa2.Cells(s, "c") = Sayfa1.Cells(sat + 1, "a")
        s = s + 20
    Next
End Sub

 

[mesuthaksoy]

Çok tşk ederim yardımınız için ama excel sayfasına bir türlü ekleyemedim macroyu..Excele ekleyip attachlayabilir misiniz eğer mümkünse?

 

[N.Ziya Hiçdurmaz]

yanıt

Ekteki dosyayı inceleyiniz.

 

[mesuthaksoy]

1.sayfada a6ya yeni bir değer girdiğimde 2.sayfada c101e atması lazım ama yazmıyor birşey.siz de çalışıyor mu?yoksa benim excel ayarlarında mı bir sorun var?
tşkler

 

[mogokce]

yok ben de test ettim. bu excel çalışmıyor. deneme5'i değiştirince de 2. sayfada hala deneme 5 olarak kalıyor. yeni kayıdı da kabul etmiyor.

 

[mesuthaksoy]

Ustalar konuya bekleniyor