cocoa35
Altın Üye
- Katılım
- 6 Eylül 2007
- Mesajlar
- 654
- Excel Vers. ve Dili
- excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
- Altın Üyelik Bitiş Tarihi
- 10-12-2024
Merhaba, Ekli makro ile UserForm'daki ListBox'ı kitap içinde otomatik " YeniSayfa" adında sayfa açıp oraya kopyalayıp sonra yazıcıdan çıktı alınıyor, buraya kadar tamam ancak yazdırma işlemi bitince ekstra Sayfa1 adında başka bir sayfa daha oluşturuyor! bunu nasıl önlerim
Private Sub CommandButton3_Click()
Dim i As Long, a As Integer
On Local Error Resume Next
Sheets.Add.Name = "YeniSayfa"
If Err.Number = 1004 Then MsgBox "Bilgi : " & cvlf & "Sayfa zaten mevcut. ", vbInformation, ""
For i = 0 To ListBox5.ListCount - 1
For a = 0 To ListBox5.ColumnCount - 1
With Sheets("YeniSayfa")
.Cells(i + 2, a + 1).Value = ListBox5.List(i, a)
End With
Next a, i
i = Empty: a = Empty
MsgBox "Seçtiğiniz veriler aktarılmıştır.", vbInformation, ""
Me.Hide
Sheets("yenisayfa").PrintPreview
End Sub
Private Sub CommandButton3_Click()
Dim i As Long, a As Integer
On Local Error Resume Next
Sheets.Add.Name = "YeniSayfa"
If Err.Number = 1004 Then MsgBox "Bilgi : " & cvlf & "Sayfa zaten mevcut. ", vbInformation, ""
For i = 0 To ListBox5.ListCount - 1
For a = 0 To ListBox5.ColumnCount - 1
With Sheets("YeniSayfa")
.Cells(i + 2, a + 1).Value = ListBox5.List(i, a)
End With
Next a, i
i = Empty: a = Empty
MsgBox "Seçtiğiniz veriler aktarılmıştır.", vbInformation, ""
Me.Hide
Sheets("yenisayfa").PrintPreview
End Sub
