daha önce sorduğunuz bir soruda da aynı sorunu yaşamıştık
yazdığınız mesaja göre çözüm üretmiştik ama sonunda söylediğinizin tam tersini istediğiniz anlaşılmıştı.
(Bu sorunuzda: https://accesstr.net/konu-ado-ile-kapali...#pid159977 )
soruları çözmek için dünya kadar zaman ve emek harcıyoruz sonra bir bakıyoruz tüm emekler çöpe gitmiş, çünkü söylenen şeyle istenen şey bambaşka imiş
kodu aşağıdaki ile değiştirip deneyebilirsiniz.

Dim Secili As Range

Dim xSht As Sheets

Dim TxtAdrs() As String

Set Secili = Selection

Dim Hucr As Range

Dim SeciliRng As String



xScreenUpdate = Application.ScreenUpdating

xAlert = Application.DisplayAlerts

Application.ScreenUpdating = False

Application.DisplayAlerts = False



Sheets.Add.Name = "GccSil"



Secili.Copy Sheets("GccSil").Range("A1")

Sheets("GccSil").PrintOut

Sheets("GccSil").Delete



Application.ScreenUpdating = xScreenUpdate

Application.DisplayAlerts = xAlert