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)