Son dolu satırdaki M sütununun seçilmesi ve Yazdırma

[metehanakdag]

Merhabalar. Ekteki dosyadaki çizelgeyi sayfa 1'e bağlantısını yaptığım userform üzerinden yazdırmak istediğimde aşağıdaki kod çalışmıyor. Eğer ogrencilistesi sayfasına buton koyup da kodu yazarsam problemsiz çalışıyor. Bu problemi nasıl çözebilirim?

Private Sub CommandButton1_Click()
With Sheets("ogrencilistesi")
.PageSetup.Orientation = xlPortrait
.PageSetup.PaperSize = xlPaperA4
.PageSetup.CenterHorizontally = True
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
.PageSetup.LeftMargin = Application.InchesToPoints(0)
.PageSetup.RightMargin = Application.InchesToPoints(0)
.PageSetup.TopMargin = Application.InchesToPoints(0)
.PageSetup.BottomMargin = Application.InchesToPoints(0)
.PageSetup.HeaderMargin = Application.InchesToPoints(0)
.PageSetup.FooterMargin = Application.InchesToPoints(0)

Dim sonsatir As Long
sonsatir = Cells(Rows.Count, "a").End(3).Row
.Range(.Cells(1, 2), .Cells(sonsatir, 13)).ExportAsFixedFormat Type:=xlttype, openafterpublish:=True
End With
End Sub

 

[metehanakdag]

Problemi çözdüm.

.Select

Bunu ekledim ve halloldu.

 

[Korhan Ayhan]

Şu satırda nokta kullanmadığınız için sorun olmuştur.

sonsatir = .Cells(.Rows.Count, "a").End(3).Row

.Select ifadesini silip dediğim düzeltmeyi yaparak deneyiniz. Çözüm olmazsa .Select ifadesini kullanırsınız.

 

[metehanakdag]

Şu satırda nokta kullanmadığınız için sorun olmuştur.

sonsatir = .Cells(.Rows.Count, "a").End(3).Row

.Select ifadesini silip dediğim düzeltmeyi yaparak deneyiniz. Çözüm olmazsa .Select ifadesini kullanırsınız.

Evet dediğinizi denedim ve o şekilde de çözüldü. Teşekkür ediyorum.