Makro ile koşullu son dolu hücreyi bulmak

[buyocan]

İyi günler. Araştırmama rağmen bulamadığım bir makro.
Bir tablom var. A13:A3601 arasında 2 den büyük son dolu hücreye kadar seçip J13'e kopyalayıp yapıştırmak.

Yardım eden herkese teşekkürler

 

[tamer42]

İyi günler. Araştırmama rağmen bulamadığım bir makro.
Bir tablom var. B13:B3611 arasında 2 den büyük son dolu hücreye kadar seçip J13'e kopyalayıp yapıştırmak.

Yardım eden herkese teşekkürler

Örnek dosya ekler misiniz;

 

[buyocan]

Örnek dosya ekler misiniz;

Tamer bey dosyayi yükledim benim için Giden sayfasındaki sarı renk ile boyadığım hücre son dolu hücrelerdir A13 ten başlayarak son dolu hücreye kadar kopyalayıp Gelen sayfasında A3 ten itibaren özel yapıştır değerler ile yapıştırmak.
İlginize şimdiden teşekkürler.


http://dosya.co/in12x374x0zu/Ortalama.xlsx.html

 

[tamer42]

Tamer bey dosyayi yükledim benim için Giden sayfasındaki sarı renk ile boyadığım hücre son dolu hücrelerdir A13 ten başlayarak son dolu hücreye kadar kopyalayıp Gelen sayfasında A3 ten itibaren özel yapıştır değerler ile yapıştırmak.
İlginize şimdiden teşekkürler.


http://dosya.co/in12x374x0zu/Ortalama.xlsx.html

Dosyanız ekte;

umarım işinizi görür.

http://s9.dosya.tc/server2/ajik0y/Ortalama.rar.html

Kolay gelsin.

 

[buyocan]

dosyayı indiremiyorum normal açık sunuculardan birine yükleseniz olmaz mı

 

[Ömer]

dosyayı indiremiyorum normal açık sunuculardan birine yükleseniz olmaz mı

Merhaba,

Tamer Bey'in müsaadesiyle, #4 numaralı mesajına eklediği dosyayı link olarak da yükledim.

----------------------------------------------------------------------------------------------------------------------------
Ayrıca alternatif olarak aşağıdaki kodları da kullanabilirsiniz.

Sub Kopyala()

    Dim alan As String, son As Long, Sg As Worksheet
    
    Set Sg = Sheets("Gelen")
    
    Application.ScreenUpdating = False
    Sheets("Giden").Select
    
    alan = Range("A13:A" & Cells(Rows.Count, "A").End(xlUp).Row).Address
    son = Evaluate("=Lookup(2, 1 / (" & alan & " > 2 ), Row(" & alan & "))")
    
    Sg.Range("A3:A" & Rows.Count).ClearContents
    Range("A13:A" & son).Copy
    Sg.Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

.

 

[buyocan]

Tamer bey ve Ömer bey ilgi ve alakanıza teşekkürler. İyi çalışmalar.
Sorumun cevabı tam olarak buydu.