[Çözüldü]  Optionbutton ile arama

Seçenek düğmesi

Cevap: Optionbutton ile arama

İleti#21)  feraz » 19 Ağu 2016 13:58

Rica ederiz.Kodlar Ali hocamıza ait.Bende ona minnettarım :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Optionbutton ile arama

İleti#22)  zfr10 » 19 Ağu 2016 16:18

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?
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Cevap: Optionbutton ile arama

İleti#23)  feraz » 19 Ağu 2016 16:23

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

Bunun altına Exit sub yazıp deneyiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#24)  feraz » 19 Ağu 2016 16:36

Biraz acele etmiş olabilirim.Kodun başına yenisayfa adında sayfa vevcutsa mesaj ver çık.Gibi yazılabilir.Zaman olursa yaparım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Optionbutton ile arama

İleti#25)  feraz » 19 Ağu 2016 19:48

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
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#26)  zfr10 » 20 Ağu 2016 21:34

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?
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Optionbutton ile arama

İleti#27)  feraz » 20 Ağu 2016 21:46

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.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#28)  feraz » 20 Ağu 2016 21:48

Yada for x den next x e kadar silip yerine Sheets(x).Delete yazıp deneyiniz abey.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#29)  feraz » 20 Ağu 2016 21:51

Pardon Sheets(×) yerine sheets("YeniSayfa").delete olacaktı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Optionbutton ile arama

İleti#30)  zfr10 » 20 Ağu 2016 22:51

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. şkşk
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 36
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Cevap: Optionbutton ile arama

İleti#31)  feraz » 20 Ağu 2016 23:18

Cümlemizden Allah razı olsun.Kolay gelsin.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6792
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Önceki

Forum OptionButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe