• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Son Veriye Kadar Seçme

  • Konbuyu başlatan Konbuyu başlatan yyhy
  • Başlangıç tarihi Başlangıç tarihi

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Son Veriye Kadar Macro İle Butona Tıklayınca Seçtirebilir miyiz?
 

Ekli dosyalar

Bana excel dosyasında bilgiler geliyor. Aralığı ise a2 den başlayıp Q hücresine kadar.
Kriterimiz a2 hücresinden başlayarak aşağıya doğru inecek son dolu hücreden Q sütunu arasında kalan bölümü seçecek.
Yani verimiz A2 Hücresinden başladı A10 Hücresinde bitti. Seçeceğimiz aralık A2 Hücresinden Q10 hücresine kadar olan aralığı seçip kopyalaması istiyorum.
A10 hücresi her gelen formda değişik olabiliyor. Bazen A25 hücresine kadar da gelebiliyor kısaca değişken oluyor. Eğer A2 hücresinden A25 hücresine kadar veri varsa seçip kopyalayacağı bölüm ise A2 dan Q25 hücresine kadar.
 
Son düzenleme:
Sayın yyhy

Aşağıdaki kod ile uygulama yapınız.

Kod:
Sub kopyala()
son = Sheets(1).Cells(1, 1).End(xlDown).Row
Sheets(1).Range("A2:Q" & son).Copy
End Sub
 
Bu şekilde deneyiniz.
Kod:
Range([A2:Q2], [A2:Q2].End(xlDown)).Select
 
Sayın Kuman Tam istediğim gibi. İlgi ve alakanıza teşekkürler. Sayın Seyit Tiken 'in vermiş olduğu kodu da deneyeceğim. Tüm arkadaşlara teşekkürler.
Sayın Seyit Tiken sizin verdiğiniz kodu uygulayamadım. Örnek dosyaya kodu ekleyebilir misiniz?
 
Son düzenleme:
Geri
Üst