AccessTr.neT

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