formdaki listbox

[macros]

List box değeri form her açıldığında artıyor
bu sorunu çözmede yardımcı olursanız sevinirim

 

[GAYSERİLİ]

nasıl yani artıyor neyi kastettiğiniz tam anlayamadım. ama kodlarınıza baktığımda bayağı bir dağınıklık ve birbirine girmiş prosedürler gördüm. bunları düzeltmeli önce.

 

[macros]

sayfalar listbox ın değeri rapor al butonuna bastığım zaman değeri kadar tekrar akleniyor.yani her rapor al butonuna bastığım zaman aynı değerleri tekrar ekleniyor.userform_active evantında form her açıldığında otomatik eklenior

 

[GAYSERİLİ]

anladığım kadarıyla kodları şu şekilde bir değiştirin
[vb:1:5acbf5550e]Private Sub CommandButton6_Click()
Dim x
x = ListBox1.Value
Range("A1").Select
UserForm1.Hide
ActiveSheet.PageSetup.BlackAndWhite = True
Worksheets(x).PrintPreview
Worksheets(x).PageSetup.PrintArea = ""
'Sheets("ListBox1.Value").Select
UserForm1.Show
'ListBox1.ListIndex = 6
End Sub[/vb:1:5acbf5550e]

 

[macros]

Sn Gayserili ilginize teşekkürler ama sorun yine devam ediyor.yani sayfalar listbox ı rapor al butonuna basıldığında tekrar artıyor.

 

[GAYSERİLİ]

artmak kelimesinin anlamını ne anlamda kullanıyorsunuz acaba listboxtamı artarak gösteriyor hala anlamış değilim fakat tüm kodlarınızı biraz düzenledim.
[vb:1:41a73cc1e5]Private Sub CommandButton1_Click()
'For a = 1 To 2
'If Controls("textbox" & a) = "" Then
'MsgBox "VERİ GİRİŞİ EKSİKTİR"
'Exit Sub
'End If
'Next
'Sheets("ListBox1.Value").Select
If ListBox1.Text = Empty Then
MsgBox " .....SAYFA SEÇMENİZ GEREKİYOR !!!!....... "
Beep
Beep
Exit Sub
Else
Range("B7").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("B7").Value = Empty Then
Range("B7").Value = 1
Range("B7").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If

say = WorksheetFunction.CountA(Sheets(ListBox1.Value).[B5:B65536]) + 1
'sonsat = [b4:b65536].End(3).Row + 1
san = say + 5
Cells(san, 2) = say - 1
Cells(san, 3) = TextBox1.Text
Cells(san, 4) = TextBox2.Text
Range("C" & san & "" & san).Interior.ColorIndex = 24
Label3.ForeColor = vbGreen
CommandButton1.Caption = " KAYDEDİLDİ"
Application.Wait Now + TimeValue("00:00:02") / 1.55
Label3.ForeColor = &HC00000
CommandButton1.Caption = " KAYDET"
MsgBox "VERİ KAYDI YAPILDI"
UserForm_Initialize
ListBox2.ListIndex = san - 7
CommandButton5_Click
'Range("A" & sonsat & "" & sonsat).Interior.ColorIndex = 6
TextBox1.SetFocus
End If
End Sub

Private Sub CommandButton2_Click()
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
Label4.ForeColor = vbGreen
CommandButton2.Caption = " DEĞİŞTİRİLDİ"
Application.Wait Now + TimeValue("00:00:02") / 1.3
Label4.ForeColor = &H800080
CommandButton2.Caption = " DEĞİŞTİR"
sonsat = ListBox2.ListIndex + 7
Cells(sonsat, 3) = TextBox1.Text
Cells(sonsat, 4) = TextBox2.Value
ListBox2.RowSource = "C7" & [b65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub

Private Sub CommandButton3_Click()
sor = MsgBox("Silmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
Label5.ForeColor = vbGreen
CommandButton3.Caption = " SİLİNDİ"
Application.Wait Now + TimeValue("00:00:02") / 1.4
Label5.ForeColor = vbRed
CommandButton3.Caption = " KAYIT SİL"
sat = ListBox2.ListIndex + 7
'Range("A" & sat).Interior.ColorIndex = 25
Range("C" & sat & "" & sat).Delete
[b65536].End(3).Delete
'UserForm_Initialize
CommandButton5_Click
MsgBox "SEÇİLEN VERİ SİLİNMİŞTİR"
End Sub


Private Sub CommandButton5_Click()
'CommandButton1.Enabled = True
'CommandButton2.Enabled = False
'CommandButton3.Enabled = False
For a = 1 To 2
Controls("textbox" & a) = ""
Next
ListBox2.ListIndex = -1
End Sub
Private Sub Label6_Click()
Unload Me
veriform.Show
End Sub

Private Sub CommandButton6_Click()
Dim x
x = ListBox1.Value
Range("A1").Select
UserForm1.Hide
ActiveSheet.PageSetup.BlackAndWhite = True
Worksheets(x).PrintPreview
Worksheets(x).PageSetup.PrintArea = ""
'Sheets("ListBox1.Value").Select
UserForm1.Show
'ListBox1.ListIndex = 6
ListBox1.Clear
Call CommandButton6_Click
End Sub

Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Select
End Sub

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox2.ColumnCount = 2
For a = 0 To 1
Controls("textbox" & a + 1) = ListBox2.Column(a)
Next
Range("C7" & Range("b65536").End(3).Row).Interior.ColorIndex = 24
sat = ListBox2.ListIndex + 7
Range("C" & sat & "" & sat).Interior.ColorIndex = 6
End Sub


Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Worksheets.Count
ListBox1.AddItem Worksheets(i).Name
Next i
ListBox2.ColumnCount = 2
'Range("A2:I" & [a65536].End(3).Row).Interior.ColorIndex = 6
ListBox2.RowSource = "C7" & Range("b65536").End(3).Row
'Label2.Caption = Date

End Sub[/vb:1:41a73cc1e5]

 

[Levent Menteşoğlu]

Rapor al butonunda kastınız hangisi ise o butondaki kodlara ilk satır olarak aşağıdaki satırı ilave edin.

listbox1.clear

 

[macros]

userformda listbox1(sayfalar)

arkadaşlar sorununumu tam anlatamadım.rapor al butonunu çalıştıp denerseniz her defasında sheet lerin listbox1 değerine ilave edildiğini
göreceksiniz.

 

[Levent Menteşoğlu]

rapor al butonunu çalıştıp denerseniz her defasında sheet lerin listbox1 değerine ilave edildiğini göreceksiniz.

Ben dosyanızda "Rapor al" isminde bir buton göremedim.

 

[Levent Menteşoğlu]

Sanıyorum "döküm al" butonunu kasdediyorsunuz. Bu butondaki koda aşağıdaki kırmızı renkli satırı ilave edin.

[vb:1:5d30f7e043].
.
UserForm1.Hide
ListBox1.Clear
.
.
[/vb:1:5d30f7e043]

Not:Birde dosyanızda bir çok gereksiz referans işaretli bunlarda hataya neden oluyor, VBE editöründe bu referanslardaki işaretleri kaldırın.

 

[macros]

Sn leventm haklısınız Buton Döküm al .' işaretiyle etkisizleştirdim çünki yeni başladığım için bu tür koları silmek istemedim.verdiğiniz kod çalışıyor çok teşekkür
ederim.iyi çalışmalar