Ambiguous name detected:Userform_İnitialize hatası yardım.!

emreeken

emreeken

Katılım
19 Ekim 2023
Mesajlar
51
Excel Vers. ve Dili
Excel 2016 - Office 2016 64 Bit
Merhaba değerli üstadlar.

Aşağıdaki kodları aynı userformda kullanınca "Ambiguous name detected:Userform_İnitialize" hatası alıyorum bunu nasıl aşabilirim. Kodları nasıl yazmam gerekiyor birleştirmem mi gerekiyor çözemedim. Kodları aynen bu şekilde userforma ekliyorum ve ilgili hatayı alıyorum.

1.KOD
Private Sub UserForm_Initialize()
TextBox31.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar
TextBox32.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar
TextBox33.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar
TextBox34.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar
End Sub



2. KOD

Private Sub UserForm_Initialize()

Dim I As Long
Set KL = Sheets("Kiler")
For I = 6 To KL.[R65536].End(3).Row
If Application.WorksheetFunction.CountIf(KL.Range("R6:R" & I), KL.Cells(I, "R")) = 1 Then
firmaadı.AddItem KL.Cells(I, "R")
End If
Next I

Dim b As Long
Set KL = Sheets("Kiler")
For b = 6 To KL.[E65536].End(3).Row
If Application.WorksheetFunction.CountIf(KL.Range("E6:E" & b), KL.Cells(b, "E")) = 1 Then
ürünadıgrşyeni.AddItem KL.Cells(b, "E")
End If
Next b

birimigrş = Format(Replace(birimigrş, ".", ","), "#,##0.00")
kdvgrş = Format(Replace(kdvgrş, ".", ","), "#,##0")
gelişhariçgrş = Format(Replace(gelişhariçgrş, ".", ","), "#,##0.00")
gelişdahilgrş = Format(Replace(gelişdahilgrş, ".", ","), "#,##0.00")
toplamdahilgrş = Format(Replace(toplamdahilgrş, ".", ","), "#,##0.00")
TextBox31 = UserForm1.TextBox34
TextBox32 = Date

Set KL = Nothing
End Sub
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
926
Excel Vers. ve Dili
2003
Private Sub UserForm_Initialize()

İnitialize yalnız 1 tane olabilir. 2 kodu tek initialize altında toplayın.
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
926
Excel Vers. ve Dili
2003
Kod: 
Bu şekilde deneyiniz.

Private Sub UserForm_Initialize()
TextBox31.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar
TextBox32.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar
TextBox33.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar
TextBox34.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar

Dim I As Long
Set KL = Sheets("Kiler")
For I = 6 To KL.[R65536].End(3).Row
If Application.WorksheetFunction.CountIf(KL.Range("R6:R" & I), KL.Cells(I, "R")) = 1 Then
firmaadı.AddItem KL.Cells(I, "R")
End If
Next I

Dim b As Long
Set KL = Sheets("Kiler")
For b = 6 To KL.[E65536].End(3).Row
If Application.WorksheetFunction.CountIf(KL.Range("E6:E" & b), KL.Cells(b, "E")) = 1 Then
ürünadıgrşyeni.AddItem KL.Cells(b, "E")
End If
Next b

birimigrş = Format(Replace(birimigrş, ".", ","), "#,##0.00")
kdvgrş = Format(Replace(kdvgrş, ".", ","), "#,##0")
gelişhariçgrş = Format(Replace(gelişhariçgrş, ".", ","), "#,##0.00")
gelişdahilgrş = Format(Replace(gelişdahilgrş, ".", ","), "#,##0.00")
toplamdahilgrş = Format(Replace(toplamdahilgrş, ".", ","), "#,##0.00")
TextBox31 = UserForm1.TextBox34
TextBox32 = Date

Set KL = Nothing
End Sub
 
emreeken

emreeken

Katılım
19 Ekim 2023
Mesajlar
51
Excel Vers. ve Dili
Excel 2016 - Office 2016 64 Bit
Saban Sertkaya' Alıntı:
Kod: 
Bu şekilde deneyiniz.

Private Sub UserForm_Initialize()
TextBox31.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar
TextBox32.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar
TextBox33.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar
TextBox34.ShowDropButtonWhen = fmShowDropButtonWhenAlways ' tarihadi de tarih seçmek için yanında ok çıkar

Dim I As Long
Set KL = Sheets("Kiler")
For I = 6 To KL.[R65536].End(3).Row
If Application.WorksheetFunction.CountIf(KL.Range("R6:R" & I), KL.Cells(I, "R")) = 1 Then
firmaadı.AddItem KL.Cells(I, "R")
End If
Next I

Dim b As Long
Set KL = Sheets("Kiler")
For b = 6 To KL.[E65536].End(3).Row
If Application.WorksheetFunction.CountIf(KL.Range("E6:E" & b), KL.Cells(b, "E")) = 1 Then
ürünadıgrşyeni.AddItem KL.Cells(b, "E")
End If
Next b

birimigrş = Format(Replace(birimigrş, ".", ","), "#,##0.00")
kdvgrş = Format(Replace(kdvgrş, ".", ","), "#,##0")
gelişhariçgrş = Format(Replace(gelişhariçgrş, ".", ","), "#,##0.00")
gelişdahilgrş = Format(Replace(gelişdahilgrş, ".", ","), "#,##0.00")
toplamdahilgrş = Format(Replace(toplamdahilgrş, ".", ","), "#,##0.00")
TextBox31 = UserForm1.TextBox34
TextBox32 = Date

Set KL = Nothing
End Sub
Genişletmek için tıkla ...
Sağolun hocam fakat bu seferde bu hatayı veriyor
sat = WorksheetFunction.Match(CDbl(TextBox31), AYMD.[C:C], 0)
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
926
Excel Vers. ve Dili
2003
Genelde bir hata alıyorsanız, hatanın ne olduğunu da yazın. Bu cevap için önemlidir.
Kodun sonundaki 0 ifadesi tam eşleşmeyi ifade etmektedir. Muhtemelen aradığınız nesne tam eşleşmediğinden bu hatayı alıyorsunuz.
 
emreeken

emreeken

Katılım
19 Ekim 2023
Mesajlar
51
Excel Vers. ve Dili
Excel 2016 - Office 2016 64 Bit
Saban Sertkaya' Alıntı:
Genelde bir hata alıyorsanız, hatanın ne olduğunu da yazın. Bu cevap için önemlidir.
Kodun sonundaki 0 ifadesi tam eşleşmeyi ifade etmektedir. Muhtemelen aradığınız nesne tam eşleşmediğinden bu hatayı alıyorsunuz.
Genişletmek için tıkla ...
Runtime error 13
Type mismatch hatası hocam
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
926
Excel Vers. ve Dili
2003
Textbox31'de metin yok değil mi ? Zira metin var ise bu hatayı, yani tip uyuşmazlığı hatası alırsınız.
(Sahur için ayrılıyorum, hayırlı sahurlar.)
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst