+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Macro İle Kopyalama Yapma (/konu-macro-ile-kopyalama-yapma.html)
Macro İle Kopyalama Yapma - yyhy - 16/07/2020
Macro ile sayfada bulunan en son veriye kadar belirlenen sütunları kopyalama yapabilir miyiz?
RE: Macro İle Kopyalama Yapma - berduş - 16/07/2020
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).SelectRE: Macro İle Kopyalama Yapma - yyhy - 16/07/2020
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.
RE: Macro İle Kopyalama Yapma - berduş - 16/07/2020
2. mesajdaki kodu denediniz mi? İsteğinizi karşıladığını düşünüyorum.
RE: Macro İle Kopyalama Yapma - yyhy - 16/07/2020
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.
RE: Macro İle Kopyalama Yapma - berduş - 16/07/2020
kodlar butona yazılacak
Butona sağ tıklayıp
Macro ata
Yeni
Kodu çıkan sayfaya yapistirin