Makroda Invalid use of property Hatası

[airborne]

Private Sub CommandButton1_Click()
On Error Resume Next
Dim KayitSayisi As Integer
If TextBox1.Value = "" Then
MsgBox "Adı Soyadı Alanını mutlaka doldurmalısınız", , "Eksik Alan Bulundu"
Exit Sub
End If
Set Sayfa30 = Worksheets("Sayfa30")
Set Sayfa31 = Worksheets("Sayfa31")
Set Sayfa32 = Worksheets("Sayfa32")
Set Sayfa33 = Worksheets("Sayfa33")
KayitSayisi = WorksheetFunction.CountA(Sayfa30.Range("A:A65536"))
Sayfa30.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
Sayfa31.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
Sayfa32.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
Sayfa33.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
ActiveWorkbook.Save
End Sub

bu kodlarlarla daha önceden userform üzerinde textbox tan sayfalara Personel isim kaydı yapıyordum fakat şimdi

compile Eror : Invalid use Of Property hatası veriyor. sebibini bir türlü anlayamadım. yardımlarınız için şimdiden teşekkürler

 

[Levent Menteşoğlu]

KayitSayisi = WorksheetFunction.CountA(Sayfa30.Range("A:A65536") )

Yukarıdaki satırda A:A65536 yı A1:A65536 olarak düzeltin.

 

[airborne]

ilginiz için teşekkür ederim sayın leventm,

dediğiniz gibi yaptım ama yine aynı hatayı veriyor.
yalnız başka bir user form üzerindede okuldan ayrılan personeli silip arşiv safyasına attığı için Sayfa30 dan satır siliyor.

Silip Arşivleme Makrosu

Private Sub CommandButton2_Click()
On Error Resume Next
If MsgBox(ListBox1.Text & "'a Ait Bilgiler Silinecek ve Arşive Kaydedilecekter, Emin misiniz?", vbYesNo, "Personel Silme") = vbYes Then
adrs1 = Range(Cells(ListBox1.ListIndex + 1, "A"), Cells(ListBox1.ListIndex + 1, "AC")).Address
adrs2 = Range(Cells([Arsiv!A65536].End(3).Row + 1, "A"), Cells([Arsiv!A65536].End(3).Row + 1, "Z")).Address
Sheets("Arsiv").Range(adrs2).Value = Sheets("Sayfa30").Range(adrs1).Value
Sheets("sayfa30").Rows(ListBox1.ListIndex + 1).Delete
Sheets("sayfa31").Rows(ListBox1.ListIndex + 1).Delete
Sheets("sayfa32").Rows(ListBox1.ListIndex + 1).Delete
Sheets("sayfa33").Rows(ListBox1.ListIndex + 1).Delete
End If
End Sub

 

[airborne]

Bu problemi öğleden beri çözemedim. Lütfen üstadlar yardımcı olun

 

[Ferhat Pazarçevirdi]

Merhabalar

1.Mesaj kodlarda mı halen hata alıyorsunuz, yoksa 3.Mesajdaki kodlardan mı? Eğer hata alıyorsanız, hatanın açıklamasını ve hatanın oluştuğu satırı mutlaka bildirin.

 

[airborne]

hatayı 1. mesajdaki kodda veriyor ve Sayfa30 mavi renge boyanıyor

 

[Ferhat Pazarçevirdi]

Kaçıncı satırdaki Sayfa30 maviye boyanıyor?

 

[airborne]

Set Sayfa30 = Worksheets("Sayfa30")
Set Sayfa31 = Worksheets("Sayfa31")
Set Sayfa32 = Worksheets("Sayfa32")
Set Sayfa33 = Worksheets("Sayfa33")

1. mesayın makrosundaki bu satırlarda hata veriyor

 

[Orion1]

Dosyanızda Sayfa30 varmı?Bir bakarmısınız?

 

[airborne]

evet sayfa30 diye çalıma sayfam var

 

[Levent Menteşoğlu]

Sorun set ile sayfayı atadığınız değişkeninin adının sayfa adı ile aynı olmasından kaynaklanıyor. Yani,

Set Sayfa30 = Worksheets("Sayfa30")

Yukarıdaki tanımlamayı farklı bir ad kullanarak değiştirin. Örneğin,

Set S30 = Worksheets("Sayfa30")

 

[Ferhat Pazarçevirdi]

Peki aldığınız hata, Sn.Leventm'nin (2.mesaj) önerisinden sonra hala, Invalid use of property midir? yoksa başka tür bir hata mesajı mı alıyorsunuz?

 

[airborne]

evet devam ediyor

 

[Ferhat Pazarçevirdi]

Dosyanızı ilave etme şansınız varsa, çözüm üretilebilir. Yoksa, tarifle bu iş yürümeyecek galiba ...

 

[Levent Menteşoğlu]

Sorunun sebebini 11.mesajda belirtmiştim, sanırım gözden kaçtı.