Merhaba,
XP de oluşturulan programımı Vistada sorunsuz kullandım. Ancak programı tekrar XP ye aldığımda aşağıdaki İnitialize olayında hata veriyor ve "Set Ash" kısmı sarıya boyanıyor. Dolayısı ile programı çalıştıramadım. Neden böyle bir durumoluştu, nasıl düzeltebiliriz?
Hatanın verildiği kod aşağıdadır.
İyi çalılşmalar
Saygılarımla
Private Sub UserForm_Initialize()
On Error Resume Next
Dim i As Integer
Me.Caption = "B&T DESIGN VERİ KAYIT FORMU"
For i = 1 To Worksheets.Count
ComboBox1.AddItem Worksheets(i).Name
Next
ComboBox1.Value = ActiveSheet.Name
Dim a
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , "HAFTA", 55, 0
.Add , , "KAYNAK", 75, 2
.Add , , "FİRMA", 75, 2
.Add , , "YETKİLİ", 150, 2
.Add , , "TELEFON", 55, 2
.Add , , "ADRES", 70, 2
.Add , , "E-MAIL", 70, 2
.Add , , "GÖRÜŞME TARİHİ.", 70, 2
.Add , , "PROJE ADI", 150, 2
.Add , , "BİTİŞ TARİHİ", 70, 0
.Add , , "VERİLEN DÖKÜMAN.", 100, 2
.Add , , "SEKTÖR", 70, 2
.Add , , "AKTARILAN GRUP", 70, 2
.Add , , "SATIŞ SORUMLUSU", 70, 0
.Add , , "TEKLİF NO", 75, 2
.Add , , "TEKLİF TUTARI", 75, 2
.Add , , "KUR", 75, 2
.Add , , "KDV", 75, 2
.Add , , "GRÇ ORANI", 75, 2
.Add , , "İNDİRİM", 50, 0
.Add , , "YÜZDE", 50, 0
.Add , , "AÇIKLAMA", 55, 2
.Add , , "DURUM", 55, 2
.Add , , "NEDEN", 70, 2
.Add , , "SONUÇ", 70, 2
End With
ComboBox9.RowSource = "Range!e5:e9"
ComboBox3.RowSource = "Range!a67:a132"
ComboBox4.RowSource = "Range!b1:b32"
ComboBox10.RowSource = "Range!z44:z52"
ComboBox6.RowSource = "Range!b43:b48"
ComboBox11.RowSource = "Range!A53:A58"
ComboBox14.RowSource = "Range!C54:C63"
ComboBox15.RowSource = "Range!C4:C51"
ComboBox18.RowSource = "Range!C65:C76"
ComboBox19.RowSource = "Range!C4:C51"
Set ash = Nothing
For i = 1 To 20
ComboBox1.AddItem Cells(i, 1).Value
Next i
For g = 1 To [a65536].End(3).Row
ComboBox20.ListIndex = 0
Next g
End Sub
XP de oluşturulan programımı Vistada sorunsuz kullandım. Ancak programı tekrar XP ye aldığımda aşağıdaki İnitialize olayında hata veriyor ve "Set Ash" kısmı sarıya boyanıyor. Dolayısı ile programı çalıştıramadım. Neden böyle bir durumoluştu, nasıl düzeltebiliriz?
Hatanın verildiği kod aşağıdadır.
İyi çalılşmalar
Saygılarımla
Private Sub UserForm_Initialize()
On Error Resume Next
Dim i As Integer
Me.Caption = "B&T DESIGN VERİ KAYIT FORMU"
For i = 1 To Worksheets.Count
ComboBox1.AddItem Worksheets(i).Name
Next
ComboBox1.Value = ActiveSheet.Name
Dim a
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , "HAFTA", 55, 0
.Add , , "KAYNAK", 75, 2
.Add , , "FİRMA", 75, 2
.Add , , "YETKİLİ", 150, 2
.Add , , "TELEFON", 55, 2
.Add , , "ADRES", 70, 2
.Add , , "E-MAIL", 70, 2
.Add , , "GÖRÜŞME TARİHİ.", 70, 2
.Add , , "PROJE ADI", 150, 2
.Add , , "BİTİŞ TARİHİ", 70, 0
.Add , , "VERİLEN DÖKÜMAN.", 100, 2
.Add , , "SEKTÖR", 70, 2
.Add , , "AKTARILAN GRUP", 70, 2
.Add , , "SATIŞ SORUMLUSU", 70, 0
.Add , , "TEKLİF NO", 75, 2
.Add , , "TEKLİF TUTARI", 75, 2
.Add , , "KUR", 75, 2
.Add , , "KDV", 75, 2
.Add , , "GRÇ ORANI", 75, 2
.Add , , "İNDİRİM", 50, 0
.Add , , "YÜZDE", 50, 0
.Add , , "AÇIKLAMA", 55, 2
.Add , , "DURUM", 55, 2
.Add , , "NEDEN", 70, 2
.Add , , "SONUÇ", 70, 2
End With
ComboBox9.RowSource = "Range!e5:e9"
ComboBox3.RowSource = "Range!a67:a132"
ComboBox4.RowSource = "Range!b1:b32"
ComboBox10.RowSource = "Range!z44:z52"
ComboBox6.RowSource = "Range!b43:b48"
ComboBox11.RowSource = "Range!A53:A58"
ComboBox14.RowSource = "Range!C54:C63"
ComboBox15.RowSource = "Range!C4:C51"
ComboBox18.RowSource = "Range!C65:C76"
ComboBox19.RowSource = "Range!C4:C51"
Set ash = Nothing
For i = 1 To 20
ComboBox1.AddItem Cells(i, 1).Value
Next i
For g = 1 To [a65536].End(3).Row
ComboBox20.ListIndex = 0
Next g
End Sub