ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[feraz]

Rica ederiz.Kodlar Ali hocamıza ait.Bende ona minnettarım

[zfr10]

Feraz Bey birşey daha sorsam size külfet olur muyum?

Private Sub CommandButton1_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, "Www.ExcelVBA.Net"
For i = 0 To ListBox1.ListCount - 1
For a = 0 To ListBox1.ColumnCount - 1
With Sheets("YeniSayfa")
.Cells(i + 2, a + 1).Value = ListBox1.List(i, a)
End With
Next a, i
i = Empty: a = Empty
MsgBox "Seçtiğiniz veriler aktarılmıştır.", vbInformation, "Www.ExcelVBA.Net"
Me.Hide
Sheets("yenisayfa").PrintPreview
Me.Show
End Sub

Bu kod verileri aktarırken yeni sayfa adında sayfaya verileri atıyor. Fakat ikinciye veri aktarırken hem yeni sayfaya atıyor hem de başka boş bir sayfa açıyor. Neden olabilir ki?

[feraz]

If Err.Number = 1004 Then MsgBox "Bilgi : " & cvlf & "Sayfa zaten mevcut. ", vbInformation, "Www.ExcelVBA.Net"

Bunun altına Exit sub yazıp deneyiniz.

[feraz]

Biraz acele etmiş olabilirim.Kodun başına yenisayfa adında sayfa vevcutsa mesaj ver çık.Gibi yazılabilir.Zaman olursa yaparım.

[feraz]

Kod: Tümünü seç

Private Sub CommandButton1_Click()
Dim i As Long, a, x As Integer
On Local Error Resume Next

For x = 1 To Worksheets.Count

    If Sheets(x).Name = "YeniSayfa" Then
        MsgBox "Bu sayfa mevcut", vbCritical
        Exit Sub
     End If
Next x

Sheets.Add.Name = "YeniSayfa"
For i = 0 To ListBox1.ListCount - 1
For a = 0 To ListBox1.ColumnCount - 1
With Sheets("YeniSayfa")
.Cells(i + 2, a + 1).Value = ListBox1.List(i, a)
End With
Next a, i
i = Empty: a = Empty: x = Empty
MsgBox "Seçtiðiniz veriler aktarýlmýþtýr.", vbInformation
Me.Hide
Sheets("yenisayfa").PrintPreview
Me.Show
End Sub

[zfr10]

Feraz Hocam kod güzel çalışıyor fakat ilk veriyi alıktan sonra ikinci veriyi alırken sayfa mevcut uyarısı ve verileri sayfaya göndermiyor. Yani yenisayfa adlı sayfayı silip ikinciye öyle mi işlem yapmamız gerekiyor?

[feraz]

If Sheets(x).Name = "YeniSayfa" Then
MsgBox "Bu sayfa mevcut", vbCritical
Exit Sub
End If

Yerine

If Sheets(x).Name = "YeniSayfa" Then

Sheets(x).Delete
End If

Yazarmısınız.Telefondan ancak bu kadar oluyor.

[feraz]

Yada for x den next x e kadar silip yerine Sheets(x).Delete yazıp deneyiniz abey.

[feraz]

Pardon Sheets(×) yerine sheets("YeniSayfa").delete olacaktı.

[zfr10]

Sayın Feraz Bey elinize, emeğinize sağlık gerçekten tam oldu. Nasıl teşekkür edeceğimi bilmiyorum. ALLAH razı olsun.

[feraz]

Cümlemizden Allah razı olsun.Kolay gelsin.