Userform Geç Açılma Sorunu

[iaydin20]

Arkadaşlar ana Userform üzerinden ulaşılan iki adet userformda geçikmeli açılma sorunu var form üzerindeki listwieve sütun ekledikten sonra oluştu eklemeleri çıkartmama rağmen düzelmedi yardımlarını bekliyorum şimdiden teşekkür ederim.

Private Sub cikis_Click()
On Error Resume Next
Unload frmcari
End Sub
Private Sub CommandButton10_Click()
On Error Resume Next
cari1.Show

End Sub

Private Sub CommandButton2_Click()
On Error Resume Next
frmgider.Show
Unload frmcari
End Sub

Private Sub CommandButton4_Click()
On Error Resume Next
frmcaritplm.Show
Unload frmcari
End Sub

Private Sub hspad_Change()
On Error Resume Next
tcari
ListView1.ForeColor = &H0&
On Error Resume Next
Dim Toplam As Double, Toplam1 As Double
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
Toplam = Toplam + CDbl(ListView1.ListItems(i).SubItems(7))
Toplam1 = Toplam1 + CDbl(ListView1.ListItems(i).SubItems(8))
Next
borc.Text = Format(Toplam, "#,##0.00")
odenen.Text = Format(Toplam1, "#,##0.00")
bakiye.Text = Format(Toplam - Toplam1, "#,##0.00")

Sheets("crapor").[a1] = hspad.Text
adres.RowSource = "crapor!B5"
tel.RowSource = "crapor!B6"
fax.RowSource = "crapor!C6"
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
Set Sh = Sheets("veri")
son = Sh.Cells(65536, 1).End(xlUp).Row
yeni = True
With frmcari.ListView1
.ListItems.Clear
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
With .ColumnHeaders
.Add , , Sh.Cells(1, 1), 48
.Add , , Sh.Cells(1, 2), 48
.Add , , Sh.Cells(1, 3), 0
.Add , , Sh.Cells(1, 4), 50
.Add , , Sh.Cells(1, 5), 130
.Add , , Sh.Cells(1, 6), 40, lvwColumnRight
.Add , , Sh.Cells(1, 7), 43, lvwColumnRight
.Add , , Sh.Cells(1, 8), 48, lvwColumnRight
.Add , , Sh.Cells(1, 9), 48, lvwColumnRight
End With
End With
ListeGuncelle
End Sub
Private Sub ListView1_DblClick()
On Error Resume Next
Dim cevap

cevap = InputBox("Verileri Değiştirmek/silmek İçin Şifrenizi giriniz!!!...")
If cevap = "2008" Then
If hspad.Value = "" Then
MsgBox ("Verileri Değiştirmek veya Silmek İçin Cari Hesap Seçmelisiniz"), vbCritical, ("CARİ HESAP BÖLÜMÜ BOŞ")
Else
If ListView1.ListItems.Count = 0 Then Exit Sub
x = ListView1.SelectedItem.Index
anaform.tarih.Text = ListView1.ListItems(x)
anaform.evrak.Text = ListView1.ListItems(x).ListSubItems(1).Text
anaform.carihesap.Text = ListView1.ListItems(x).ListSubItems(2).Text
anaform.giderhesap.Text = ListView1.ListItems(x).ListSubItems(3).Text
anaform.aciklama1.Text = ListView1.ListItems(x).ListSubItems(4).Text
anaform.miktar1.Text = ListView1.ListItems(x).ListSubItems(5).Text
anaform.bfiyat1.Text = ListView1.ListItems(x).ListSubItems(6).Text
anaform.tutar1.Text = ListView1.ListItems(x).ListSubItems(7).Text
yeni = False
End If
frmcari.Hide
Else
MsgBox ("Veriler Üzerinde İşlem Yapmak İçin Yetkili değilsiniz"), vbCritical, ("Şifre Yanlış")
End If
End Sub
Private Sub Word_Click()
On Error Resume Next
If hspad.Value = "" Then
MsgBox ("Önce Cari Hesap Seçmelisiniz"), vbCritical, ("CARİ HESAP BÖLÜMÜ BOŞ")
Else
SYF_SFR_KPL
Cari_Sayfaya_Aktar
wrdc
SYF_SFR_ACK
End If
End Sub
Private Sub yazdir_Click()
On Error Resume Next
If hspad.Value = "" Then
MsgBox ("Önce Cari Hesap Seçmelisiniz"), vbCritical, ("CARİ HESAP BÖLÜMÜ BOŞ")
Else
SYF_SFR_KPL
Cari_Sayfaya_Aktar
yzdrc
SYF_SFR_ACK
End If
End Sub
Private Sub labelboic_Click()
On Error Resume Next
If hspad.Value = "" Then
MsgBox ("Önce Cari Hesap Seçmelisiniz"), vbCritical, ("CARİ HESAP BÖLÜMÜ BOŞ")
Else
SYF_SFR_KPL
Cari_Sayfaya_Aktar
BSKOZLMC
SYF_SFR_ACK
End If
End Sub
Private Sub Yenihesap_Click()
On Error Resume Next
carikart.Show
End Sub