Çözüldü Son dolu satıra kopyala yapıştır işlemi

Merhaba @habibe

-- Belgenizde BuÇalışmaKitabı (ThisWorkbook) bölümünde mevcut kopyala_yapıştır makro kodlarınız silin,
-- Aşağıdaki kodu, boş olan MODULE2'ye yapıştırın
-- Anasayfa'da yer alan ilgili düğmeyle bu kodu ilişkilendirin (nesneye sağ tık > makro ata > makro adı seç > işlemi onayla).

Bence, aktarma sonrasında; ya ilgili satırdaki veri silinmeli ya da bu satırın aktarıldığına dair, kendi satırında uygun bir hücreye
bu satırın aktarıldığını gösteren bir işaret/harf/not yazılmalı ve aynı satır tekrar aktarılmasın diye,
aktarma öncesinde bu işaret/harf/not kontrol edilmeli, boşsa aktarılmalı, doluysa "daha evvel aktarılmış" gibi bir uyarı olmalı.
Tabi bu husus aşağıdaki kodda yok, eklenmeli diye düşünüyorum.


.

Neyi nereden hangi şartlara veri kopyalıyorsunuz?

Ömer BARAN' Alıntı:

XDc = ana.Cells(ana.[E2] + 11, 3).Text syf = "": v = False: uz = Len(XDc) For Each sh In ThisWorkbook.Sheets If Left(sh.Name, uz) = XDc Then: v = True: syf = sh.Name: Exit For Next If v = True Then XDs = ThisWorkbook.Sheets(syf).Cells(Rows.Count, 4).End(3).Row + 1 ana.Cells(ana.[E2] + 11, 1).Resize(1, 8).Copy _ ThisWorkbook.Sheets(syf).Cells(XDs, 1)

Genişletmek için tıklayın ...

Çok teşekkür ederim. Kod çalışıyor emeğinize sağlık ancak şu kısımları açıklarsanız sevinirim:
XDc = ana.Cells(ana.[E2] + 11, 3).Text
syf = "": v = False: uz = Len(XDc)
For Each sh In ThisWorkbook.Sheets
If Left(sh.Name, uz) = XDc Then: v = True: syf = sh.Name: Exit For
Next
If v = True Then
XDs = ThisWorkbook.Sheets(syf).Cells(Rows.Count, 4).End(3).Row + 1
ana.Cells(ana.[E2] + 11, 1).Resize(1, 8).Copy _
ThisWorkbook.Sheets(syf).Cells(XDs, 1)

@habibe

XDc = ana.Cells(ana.[E2] + 11, 3).Text >> Aktarma yapılacak sayfa adı: E2 + 11 numaralı satırda C sütunundaki metin.
syf = "": v = False: uz = Len(XDc) >> alt satırlarda değer ataması yapılacak değişkenler boşaltılıyor ve yukarıdaki metnin uzunluğu nedir.
For Each sh In ThisWorkbook.Sheets >> For .... Next döngüsüye, belgede XDc kriterine uyan sayfa var mı o kontrol ediliyor.
If Left(sh.Name, uz) = XDc Then: v = True: syf = sh.Name: Exit For
Next
If v = True Then >> Belgede böyle bir sayfa varsa
XDs = ThisWorkbook.Sheets(syf).Cells(Rows.Count, 4).End(3).Row + 1 >> ilk boş satır numarası nedir.
ana.Cells(ana.[E2] + 11, 1).Resize(1, 8).Copy _
ThisWorkbook.Sheets(syf).Cells(XDs, 1) >> ALTTİRE ile ayrılan iki satır aslında TEK kod satırıdır. Kopyala-Yapıştır işlemi yapılıyor.

.

cakarem' Alıntı:

Neyi nereden hangi şartlara veri kopyalıyorsunuz?

Genişletmek için tıklayın ...

merhaba. yukarıda açıklama kısmında bahsettiğim gibi anasayfadaki E2 hücresine yazılan numaray ait proje sayfasının son satırına ilgili verileri kopyalamak istemiştim. Ancak sorun çözüldü teşekkürler