Satırdaki seçimi başka satıra yapıştırma ve seçimin bir alt satıra geçmesi

[serkanmesem]

Merhaba
Foruma yeni üye oldum. Gerçi daha önceden üyeliğim vardı ama...
Siz saygı değer üyelerden yardım talebim olacak;

okulda belge basımı için kullanacağım bir excel tablosu hazırlamak istiyorum. benim elimdeki hazır makrolar ile kopyalama yapıştırma işlemi yaptım ama ben oluşturduğum butona bastıkça sürekli bir alt satırdaki sabit belirlenmiş satıra yapıştırmasını istiyorum. Yani senaryom:
A1:H1--->sürekli aynı kalacak hedef hücreler olacak.

Değişken veriler aynı sayfada olacak, tablo örneğin A3:H24 arası

oluşturduğum butona tıkladığımda
A3:H3 kopyalayıp hedef hücrelere yapıştıracak ve seçim A4:H4 olacak
yine tıkladığımda A4:H4 kopyalayıp hedef hücrelere yapıştıracak ve seçim bir alt satıra yani A5:H5 olacak ve bu şekilde devam edecek.

ben sonrasında bu hedef hücreleri ayrı bir şablona taşıyacağım ve o sayfayıda bu makronun arkasına yazdırma makrosu ekleyeceğim.

Bana yardımcı olursanız çok sevinirim. Şimdiden teşekkürler

 

[serkanmesem]

Bu konu hakkında bana yardımcı olabilecek olan var mı acaba?

 

[askm]

Örnek dosya ekleyebilir misiniz.

 

[dellerlim]

Merhaba, istediğiniz böyle bir kod mu?

Sub serkanmesem()
Application.ScreenUpdating = False
Dim i As Integer

For i = 3 To 24

    Range("A" & i, "h" & i).Select
    Selection.Copy
    Range("k" & i).Select
    ActiveSheet.Paste
Next i
Application.ScreenUpdating = True
End Sub

 

[serkanmesem]

Merhaba, istediğiniz böyle bir kod mu?

Sub serkanmesem()
Application.ScreenUpdating = False
Dim i As Integer

For i = 3 To 24

    Range("A" & i, "h" & i).Select
    Selection.Copy
    Range("k" & i).Select
    ActiveSheet.Paste
Next i
Application.ScreenUpdating = True
End Sub

Merhaba ilginiz için teşekkür. Yazdığınız kodu denedim ancak a3 ten h24 e kadar komple kopyalayıp yapıştırıyor. Ama benim isteğim bu tabloda kademe kademe her seferinde sadece 1 satır kopyalayıp yapıştıracak ve bir sonraki aşama için 1 alt satıra geçecek. Bu şekilde düzenleme yapabilir miyiz? Aslında bu şekilde uygulamalar forumda gördüm ama dosyayı indirebileceğiniz için altın üyelik isteniyor.

 

[serkanmesem]

Örnek dosya ekleyebilir misiniz.

Çalıştığım bilgisayarda arızadan dolayı internet kesildi. Şu anda ekleyemiyorum ilginiz için çok teşekkür ederim

 

[dellerlim]

Modülü açıp F8 tuşu ile satır satır çalıştırınız çünkü bu kod dediğiniz gibi satır satır seçip kopyalama işlemi yapıyor olmalı.

 

[dellerlim]

Normal çalışırken de satır satır görmek isterseniz bu şekilde deneyiniz:

Sub serkanmesem()
Dim i As Integer
For i = 3 To 24

    Range("A" & i, "h" & i).Select
    Selection.Copy
    Range("k" & i).Select
    ActiveSheet.Paste
Next i
End Sub

 

[serkanmesem]

Normal çalışırken de satır satır görmek isterseniz bu şekilde deneyiniz:

Sub serkanmesem()
Dim i As Integer
For i = 3 To 24

    Range("A" & i, "h" & i).Select
    Selection.Copy
    Range("k" & i).Select
    ActiveSheet.Paste
Next i
End Sub

Bunu sadece bir satırı kopyala yapıştır yaptıktan sonra bekleyebilir misiniz? Yapıştırılan hücredeki verileri bir şablon aktarıp şablonu resmi belge üzerine yazdıracağım ve bunu biranda değil her satırın bilgilerini kontrol ettikten sonra yazdırma işlemini gerçekleştireceğim. Bu satır ile işim bittikten sonra bir sonraki satırdaki veriler için şablon oluşturacağım. Yani bu kopyala yapıştır işlemi kontrollü satır satır yapılması gerekiyor. Yani makro her seferinde ayrı ayrı çalıştırılmalı. İlginiz için gerçekten çok teşekkür ederim

 

[askm]

Aşağıdaki şekilde denerseniz her işlem sonrası uyarı verecek.Uyarıya tamam dedikten sonra bir sonraki işleme geçecek.
Sub serkanmesem()
Dim i As Integer
For i = 3 To 24

Range("A" & i, "h" & i).Select
Selection.Copy
Range("k" & i).Select
ActiveSheet.Paste
MsgBox "Devam edecek..."
Next i
End Sub

 

[serkanmesem]

Aşağıdaki şekilde denerseniz her işlem sonrası uyarı verecek.Uyarıya tamam dedikten sonra bir sonraki işleme geçecek.
Sub serkanmesem()
Dim i As Integer
For i = 3 To 24

Range("A" & i, "h" & i).Select
Selection.Copy
Range("k" & i).Select
ActiveSheet.Paste
MsgBox "Devam edecek..."
Next i
End Sub

Çok yaklaştı. Ama gerektiğinde makroyu durdurmam gerekiyor. Ve son kaldığım yerden devam edebilmeliyim.
Yardımlarınız için gerçekten çok teşekkür ederim