Textbox ile kayıtta "Object Required" hatası veriyor.

[ockucukay]

Merhaba arkadaşlar

Sorunum çok basit aslında, çalışma sayfasında textbox ve comboboxlardaki bilgileri bir başka sayfaya kaydetmeye çalışıyorum. Ama neyi yanlış yapıyorsam (bulamadım), sürekli "object required" hatası veriyor ve kaydetmiyor. Neyi yanlış yaptığımı gösterebilirseniz çok sevineceğim.

 

[ockucukay]

arkadaşlar buldum. kodu aşağıdaki gibi yazınca oldu.

Sub DokumanGiris()
'
' Makro2 Makro
' Makro OEM tarafından 08.05.2009 tarihinde kaydedildi.
'
Sheets("Dok listesi").Select
son = [b65536].End(3).Row + 1
enbuyuk = WorksheetFunction.Max(Range("b4:b65536")) + 1
Sheets("Dok listesi").Range("b2").Value = enbuyuk
'Sheets("Dok Giriş").Select
Sheets("Dok Giriş").TextBox7.Value = Sheets("Dok listesi").Range("b2").Value
Sheets("Dok listesi").Range("c2").Value = Sheets("Dok Giriş").ComboBox1.Value
Sheets("Dok listesi").Range("d2").Value = Sheets("Dok Giriş").ComboBox2.Value
Sheets("Dok listesi").Range("e2").Value = Sheets("Dok Giriş").TextBox3.Value
Sheets("Dok listesi").Range("f2").Value = Sheets("Dok Giriş").TextBox4.Value
Sheets("Dok listesi").Range("g2").Value = Sheets("Dok Giriş").TextBox5.Value
Sheets("Dok listesi").Range("h2").Value = Sheets("Dok Giriş").TextBox1.Value
Sheets("Dok listesi").Range("I2").Value = Sheets("Dok Giriş").TextBox2.Value
Sheets("Dok listesi").Range("j2").Value = Sheets("Dok Giriş").TextBox6.Value
Sheets("Dok listesi").Select
Range("B2:j2").Select
Selection.Copy
'son = [b65536].End(3).Row + 1
Cells(son, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
'Call Makro1
Sheets("Dok listesi").Select
Range("B2:J2").ClearContents
Sheets("Dok Giriş").Select
ActiveSheet.Unprotect "airwolf"
'Sheets("Dok Giriş").ComboBox1.Clear
'Sheets("Dok Giriş").ComboBox2.Clear
Sheets("Dok Giriş").TextBox4.Value = ""
Sheets("Dok Giriş").TextBox5.Value = ""
Sheets("Dok Giriş").TextBox1.Value = ""
Sheets("Dok Giriş").TextBox2.Value = ""
Sheets("Dok Giriş").TextBox6.Value = ""
Sheets("Dok Giriş").TextBox7.Value = ""
Sheets("Dok Giriş").TextBox3.Value = ""
ActiveSheet.Protect "airwolf"
End Sub