Userform hatası

[abtani]

Ekli dosyadaki excel verilerini bir userforma taşımak istiyorumVerilen hata ve çözüm yolu için yardımlarınızı bekiyorum..(Yoksa çok anlamsız şeylerlemi uğraşmışım.Kopye çekmeye çalıştım. Sanırım beceremedim.) Konu üzerinde sınırlı bilgiye sahibim.Kısa sürede halledilebilecek bir hata ise düzeltilmesi ricası ile saygılar sunarım.
Hata: Run-time error '424' Object required

 

[Ferhat Pazarçevirdi]

Bu hatayı; Userform üzerinde bulunmayan bir nesneyi kullanmaya kalktığınız için alıyorsunuz. UF’de bulunan Combobox’ınızın adı “AD” olmasına rağmen, siz bunları kodlarda cbAd olarak belirtmişsiniz. Doğal olarak da derleyici, böyle bir nesne bulamadığı için hata veriyor.

Kodlarınızı aşağıdaki gibi revize edin ve çok gerekmedikçe API kullanmayınJ

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
  "X", "D") & "Frame", Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
  Dim Say As Integer
  Sheets("KÖMÜRGİRİS").Select
  txtsira.Locked = True
  If Range("c2") = "" Then
      Say = WorksheetFunction.CountA(Range("c1:c18"))
      Ad.RowSource = "KÖMÜRGİRİS!c2:c18" & Say + 1
  Else
      Say = WorksheetFunction.CountA(Range("c1:c18"))
      Ad.RowSource = "KÖMÜRGİRİS!c2:c" & Say
  End If
  txtsira.Value = Say
  Ad.SetFocus
End Sub

 

[abtani]

Dediğinizi yapmaya çalıştım.Sadece isimlere ulaşabildim,Userformdaki sağ üst köşedeki kapat(X)sembolünü kaybettim.Sanırım yine ben yapamadım veya her zamanki gibi başka yanlışlarım var.

 

[Ferhat Pazarçevirdi]

Kapat butonunu kaybetmeniz normal... Çünkü kullandığınız API ile userformu "x" butonunu gizliyorsunuz. Başka da formu kapatacak bir kod bulunmadığı için, öylece kalıyor ortada....

Ekte düzeltilmiş dosyayı inceleyiniz.

 

[abtani]

Kapat butonunu kaybetmeniz normal... Çünkü kullandığınız API ile userformu "x" butonunu gizliyorsunuz. Başka da formu kapatacak bir kod bulunmadığı için, öylece kalıyor ortada....

Ekte düzeltilmiş dosyayı inceleyiniz.

Sorunumum çözümüne katkılarınız için teşekkür ederim.