Run time error 1004 hatası

[udentr2002]

Merhaba arkadaşlar;

Kendi bilgisayarımda açtığımda dosyamı bir sorun vermiyor. Aynı dosyayı ağdan başka bir bilgisayarda açtığımda aşağıdaki hatayı veriyor.

"Run time error 1004: Aplication defined or object definet hatasını verip

Etken adlı userformu açmıyor

Etken.show kodunu sarı renkli işaretliyor. Etken adlı userformun initialize kodalrı aşağıdaki gibidir.

Private Sub UserForm_Initialize()
Dim i  As Long, sat As Long, Sh As Worksheet, deg As String, X As Long

'Set s1 = Sheets("Etken")



ListView1.View = lvwReport 'ListView de buna dikkat et,
'Kolanlara isim ver
With ListView1.ColumnHeaders
   .Add , , "sıra Adı ", 0 ' Burda 100 sütun genişliği
    .Add , , "Etken Madde Adı ", 150 ' Burda 100 sütun genişliği
    .Add , , "Özellik", 50
    .Add , , "Stok Kodu", 50
    .Add , , "Gönderen Firma", 75
    .Add , , "Fatura/İrs Tarihi", 70
    .Add , , "Fatura/İrs. No", 75
    .Add , , "Giriş Tarihi", 60
    .Add , , "Kontrol Numarası", 75
    .Add , , "Raf Yeri", 75
    .Add , , "Farmasötik Formu", 60
    .Add , , "Menşei", 100
    .Add , , "Batch No", 75
    .Add , , "Üretim Tarihi", 75
    .Add , , "Son Kul. Tarihi", 75
    .Add , , "Retest/Exp. Date", 40
    .Add , , "Kap Şekli", 60
    
    .Add , , "Kalan Miktar", 60, lvwColumnRight
    .Add , , "Giren Miktar", 60, lvwColumnRight
    .Add , , "Çıkan Miktar", 60, lvwColumnRight
    
    .Add , , "Reçete Durumu", 50
    .Add , , "Fatura/İrs. Çeşidi", 50
    .Add , , "Saklama Koşulları", 250
    .Add , , "Açıklama", 100
    
    End With
 'Kolanlara verileri al

Call listele



ListBox1.RowSource = "Kodlar!a2:E" & Sheets("Kodlar").Range("a65536").End(3).Row
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "200;145;90;40;100"

ListBox2.RowSource = "Recete!a3:b" & Sheets("Recete").Range("a65536").End(3).Row
ListBox2.ColumnCount = 2
ListBox2.ColumnWidths = "200;145"

'ListBox3.ColumnHeads = True
'ListBox3.ColumnCount = 21
'ListBox3.RowSource = "Etken!a3:x" & Sheets("Etken").Range("a65536").End(3).Row
'ListBox3.ColumnWidths = "250;100;100;50;40;90;40;40;40;70"

For X = 13 To 22 Step 3

Controls("Combobox" & X).RowSource = "Etken!h3:h" & Sheets("Etken").Range("h65536").End(3).Row
Next

For X = 14 To 23 Step 3

Controls("Combobox" & X).RowSource = "Etken!a3:a" & Sheets("Etken").Range("a65536").End(3).Row
Next

For X = 15 To 24 Step 3

Controls("Combobox" & X).RowSource = "Etken!l3:l" & Sheets("Etken").Range("l65536").End(3).Row
Next

For X = 25 To 58 Step 3

Controls("Combobox" & X).RowSource = "Kodlar!h2:h" & Sheets("Kodlar").Range("h65536").End(3).Row
Next

For X = 61 To 94 Step 3

Controls("Combobox" & X).RowSource = "Kodlar!m2:m" & Sheets("Kodlar").Range("m65536").End(3).Row
Next

For X = 97 To 101

Controls("Combobox" & X).RowSource = "Kodlar!T2:T" & Sheets("Kodlar").Range("T65536").End(3).Row
Next


ComboBox3.RowSource = "Kodlar!a2:a" & Sheets("Kodlar").Range("a65536").End(3).Row
ComboBox4.RowSource = "Etken!d3:d" & Sheets("Etken").Range("d65536").End(3).Row
ComboBox7.RowSource = "Etken!k3:k" & Sheets("Etken").Range("k65536").End(3).Row

ComboBox8.RowSource = "Etken!a3:a" & Sheets("Etken").Range("a65536").End(3).Row

ComboBox9.RowSource = "Etken!l3:l" & Sheets("Etken").Range("l65536").End(3).Row

ComboBox10.RowSource = "Etken!I3:I" & Sheets("Etken").Range("ı65536").End(3).Row

ComboBox11.RowSource = "Etken!h3:h" & Sheets("Etken").Range("h65536").End(3).Row

ComboBox12.RowSource = "Proje_Maliyet!d4:d" & Sheets("Proje_Maliyet").Range("d65536").End(3).Row

ComboBox2.ColumnCount = 2

'ComboBox73.RowSource = "Proje_Maliyet!a4:a" & Sheets("Proje_Maliyet").Range("a65536").End(3).Row





With ComboBox2
    .AddItem
    .Column(0, 0) = "ETKEN MADDE"
    .Column(1, 0) = "AR10"
    .AddItem
    .Column(0, 1) = "DOLGU, SEYRELTİCİ"
    .Column(1, 1) = "AR20"
    .AddItem
    .Column(0, 2) = "KAYDIRICI"
    .Column(1, 2) = "AR21"
    .AddItem
    .Column(0, 3) = "BAĞLAYICI"
    .Column(1, 3) = "AR22"
    .AddItem
    .Column(0, 4) = "DAĞITICI"
    .Column(1, 4) = "AR23"
    .AddItem
    .Column(0, 5) = "KORUYUCU"
    .Column(1, 5) = "AR24"
    .AddItem
    .Column(0, 6) = "TATLANDIRICI"
    .Column(1, 6) = "AR25"
    .AddItem
    .Column(0, 7) = "VİSKOZİTE AJANI"
    .Column(1, 7) = "AR26"
    .AddItem
    .Column(0, 8) = "BOYAR MADDE"
    .Column(1, 8) = "AR27"
    .AddItem
    .Column(0, 9) = "ESANS"
    .Column(1, 9) = "AR28"
    .AddItem
    .Column(0, 10) = "UÇUCU MADDE"
    .Column(1, 10) = "AR29"
    .AddItem
    .Column(0, 11) = "KAPSÜL"
    .Column(1, 11) = "AR30"
    .AddItem
    .Column(0, 12) = "DİĞERLERİ"
    .Column(1, 12) = "AR40"
End With

With ComboBox5
.AddItem "RETEST"
.AddItem "EXPIRY"
End With

With ComboBox6
.AddItem "BEDELLİ"
.AddItem "BEDELSİZ"
.AddItem "KURYE"
End With






End Sub

Bu hatayı nasıl giderebilirim. Bunun sebebi nedir. yardımcı olursanız sevinirim.

 

[udentr2002]

Takvim adlı userform vardı. O formu sildim.

Bu defada Etken adlı userformu açmak için düğmeye tıkladığımda
Run time error 13 : Type mismatch hatası verip. userformu açmıyor
Etken.show kodunu sarı renkli olarak işaretliyor.

Garip olan benim bilgisisayarımda çalışırken aynı dosyayı ağdan başka bilgisayarda çalıştırmak istediğimde çalışmıyor. Bunun sebebi neden olabilir.

 

[udentr2002]

Sorun
diğer bilgisayardaki dil seçeneklerinin ingizce olmasından dolayıymış.