Skip to main content

AccessTr.neT


Macro İle Kopyalama Yapma

Macro İle Kopyalama Yapma

Çözüldü #1
Macro ile sayfada bulunan en son veriye kadar belirlenen sütunları kopyalama yapabilir miyiz?
.rar Koypalama Yapma.rar (Dosya Boyutu: 13,05 KB | İndirme Sayısı: 2)
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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
Cevapla
#3
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.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
2. mesajdaki kodu denediniz mi? İsteğinizi karşıladığını düşünüyorum.
Cevapla
#5
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.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 16/07/2020, 21:47, Düzenleyen: yyhy.
Cevapla
#6
kodlar butona yazılacak
Butona sağ tıklayıp
Macro ata
Yeni
Kodu çıkan sayfaya yapistirin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task