16/07/2020, 21:58
16/07/2020, 22:00
16/07/2020, 22:11
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)
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)
16/07/2020, 22:53
Sayın Berduş eğer uğraştıracak ise bu haliyle de ihtiyaca cevap vermektedir.
16/07/2020, 23:01
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
https://youtu.be/alWkIUBaDjQ
16/07/2020, 23:07
Sayın feraz ve berduş ilgi ve emeğiniz için teşekkür ederim.