+- 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)
RE: Macro İle Kopyalama Yapma - yyhy - 16/07/2020
Şu şekilde modul'e ekledim ama acaba yanlışmı oldu? Eğer yanlış olmuş ise; Örnek dosyam üzerine ekleyebilir misiniz?
RE: Macro İle Kopyalama Yapma - berduş - 16/07/2020
RE: Macro İle Kopyalama Yapma - yyhy - 16/07/2020
Sayın berduş;
Sub kopyala()
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
End Sub
macroyu bu şekilde düzenledim ama acaba veri olan en son satıra kadar seçtirebilir miyiz? Satırlara formülle verileri getiriyorum formüllü yerleri de seçiyor acaba sadece görünen verileri seçtirebilirmiyiz? Girdiğim formül ise şu şekilde =EĞER(YolcuGirisCikisListesi!E25="";"";YolcuGirisCikisListesi!E25)
RE: Macro İle Kopyalama Yapma - yyhy - 16/07/2020
Sayın Berduş eğer uğraştıracak ise bu haliyle de ihtiyaca cevap vermektedir.
RE: Macro İle Kopyalama Yapma - feraz - 16/07/2020
Videodaki anlatım fikir verebilir.Zamanım olsaydı uygulardım.Videoadaki koddaki myRng olan yerler ilgilendiriyor.Tabii oraki kodlara göre 255 den fazla birleştirme olursa sorun olurmu bilemiyorum.Yani nasıl anlatacağımıda bilemedim stringin 255 karakter uzunluğunu.
https://youtu.be/alWkIUBaDjQ
RE: Macro İle Kopyalama Yapma - yyhy - 16/07/2020
Sayın feraz ve berduş ilgi ve emeğiniz için teşekkür ederim.