Bu durumdaki bir formül daha kısa nasıl yazılır?

[ahzola]

Merhabalar

A sütunundaki verileri B sütununa kopyalayacağız.

A3 ü B4 taşı
A6 ü B7 taşı
A9 ü B10 taşı
A12 ü B13 taşı
A15 ü B16 taşı
A18 ü B19 taşı
..............
şeklinde.

Dikkat edilirse şayet görülecektir.

A sütunu satır noları 3 ten başlıyor 3 er 3er atlayarak gidiyor.
B sütunu satır noları 4 ten başlıyor 3 er 3 er atlayarak gidiyor.

bu durumu gözeterek. Alan tanımlayıp angaryadan kurtulabilirmiyiz acaba?

Uzman arkadaşlardan yardım bekliyorum.
Formül değil kod ile çözüm üretilmesi taraftarıyım.

Saygılarımla.

 

[monelogg]

Umarım bu örnek işinizi görür.

 

[ahzola]

Merhaba

2003 e göre yükleyebilirmisiniz acaba.

 

[ahzola]

Merhabalar

Değerli dostlar
@monelogg arkadaşımız sürekli online olamıyor sanırım.

Arkadaşımız dosyasını 2003 halinde tekrar yükleyebilecek.
Yada üstte belirttiğim formülü mümkün mertebe en kısa
şekilde yazacak.

Uzmanlarımızın yardımlarını bekliyorum.

 

[turist]

xls dosya eklidir.

 

[ahzola]

Merhaba
Sayın Turist

ben dosyayı indirdim.
Makroda sütun noları değiştirmek istedim
For d = 3 To m.Cells Step 3
bu sütunda hata verdi.

D sütunundaki verileri E ye kopyalayacak şekilde.
makroyu revize edip tekrar yükleyebilirmisiniz acaba

 

[turist]

Merhaba
Sayın Turist

ben dosyayı indirdim.
Makroda sütun noları değiştirmek istedim
For d = 3 To m.Cells Step 3
bu sütunda hata verdi.

D sütunundaki verileri E ye kopyalayacak şekilde.
makroyu revize edip tekrar yükleyebilirmisiniz acaba

Kodu aşağıdaki gibi değiştirin.

Sub kopyala()

Range("d1").Select
Set m = Selection.End(xlDown)
For a = 3 To m.Cells(y) Step 3
     Range("d" & a).Select
    Selection.Copy
    Range("e" & a + 1).Select
    ActiveSheet.Paste
Next

End Sub

 

[ahzola]

Teşekkür ederim

Ellerinize sağlık.