Macro ile sayfada bulunan en son veriye kadar belirlenen sütunları kopyalama yapabilir miyiz?
sadece seçili sütunlar mı olacak yoksa B:Q sütunlarının hepsi mi?
eğer hepsi ise aşağıdaki kod işinize yarayabilir
Dim SeciliRng As String
Dim SonHcr, SonHcr2 As Long
SonHcr = 0
For x = 2 To 17 'B:2. sütun, Q:17. sütun
SonHcr2 = Cells(Rows.Count, x).End(xlUp).Row
If SonHcr < SonHcr2 Then SonHcr = SonHcr2
Next x
SeciliRng = "B2:Q" & SonHcr 'Mid(SeciliRng, 2)
Range(SeciliRng).Copy
'Range(SeciliRng).Select
B2 Hücresinden Q2 Hücresine kadar aşağıya doğru veriler satır olarak değişmektedir. Kaç satır veri varsa; B ve Q sütunları arası aşağıya doğru veri olan satırlarr kopyalamak istiyorum.
2. mesajdaki kodu denediniz mi? İsteğinizi karşıladığını düşünüyorum.
Module ekledim macro ata gözükmüyor veya nasıl olacak? B2 hücresinden Q2 Hücresine kadar olan aralık aşağıya doğru uzuyor ama bazen 10 satır bazen 40 satır oluyor yani gelen veriye göre değişiyor düğmeye tıklayınca B2 hücresinden Q2 Hücresine kadar olan aralık aşağıya doğru otomatik seçerek kopyalamasını istiyorum.
kodlar butona yazılacak
Butona sağ tıklayıp
Macro ata
Yeni
Kodu çıkan sayfaya yapistirin