run-time error 380 hatası veriyor

Z

zeki_isk

Katılım
15 Ekim 2011
Mesajlar
11
Excel Vers. ve Dili
2010
run-time error 380 hatası veriyor :(

Kod: 
Private Declare Sub keybd_event Lib "USER32" (ByVal bVk As Byte, ByVal _
  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
Private Sub AltPrintScreen()
    keybd_event VK_MENU, 0, 0, 0
    keybd_event VK_SNAPSHOT, 0, 0, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub
Private Sub cbSap_Change()
s = cbSap.ListIndex + 2
cbİl = Cells(s, 3)
cbİlçe = Cells(s, 4)
cbGün = Cells(s, 5)
cbAy = Cells(s, 6)
cbYıl = Cells(s, 7)
cbSaat = Cells(s, 8)
cbDakika = Cells(s, 9)
cbSaniye = Cells(s, 10)
cbSaat2 = Cells(s, 11)
cbDakika2 = Cells(s, 12)
cbSaniye2 = Cells(s, 13)
txtAdres = Cells(s, 15)
txtÖnem = Cells(s, 16)
cbKişi = Cells(s, 17)
txtTR = Cells(s, 19)
cbMİK = Cells(s, 22)
cbKK = Cells(s, 23)
txtMüş = Cells(s, 24)
cbMT = Cells(s, 25)
End Sub

Private Sub cmdyazdir_Click()
Dim wb As Workbook
Dim sh As Worksheet
'
cmdkaydet.SetFocus
AltPrintScreen
DoEvents
'
Application.ScreenUpdating = False
'
Set wb = Workbooks.Add(template:=xlWBATWorksheet)
Set sh = wb.Sheets(1)
'
sh.Paste
'
With sh.PageSetup
    .FitToPagesTall = 1
    .FitToPagesWide = 1
    .Orientation = xlPortrait
    .Zoom = False
End With
'
sh.PrintOut
'
wb.Close False
'
Application.ScreenUpdating = True
'
Set sh = Nothing
Set wb = Nothing
End Sub

Private Sub cmdkapat_Click()
Unload UserForm4
End Sub

Private Sub txtAdres_Change()

End Sub

Private Sub UserForm_Initialize()
cbSap.RowSource = "PLANLANAN KESİNTİLER!B2: B" & Sheets("PLANLANAN KESİNTİLER").[B65536].End(xlUp).Row
cbİl.RowSource = "PLANLANAN KESİNTİLER!AC2: AC" & Sheets("PLANLANAN KESİNTİLER").[AC65536].End(xlUp).Row
cbİlçe.RowSource = "PLANLANAN KESİNTİLER!AD2: AD" & Sheets("PLANLANAN KESİNTİLER").[AD65536].End(xlUp).Row
cbGün.RowSource = "PLANLANAN KESİNTİLER!AE2: AE" & Sheets("PLANLANAN KESİNTİLER").[AE65536].End(xlUp).Row
cbAy.RowSource = "PLANLANAN KESİNTİLER!AF2: AF" & Sheets("PLANLANAN KESİNTİLER").[AF65536].End(xlUp).Row
cbYıl.RowSource = "PLANLANAN KESİNTİLER!AG2: AG" & Sheets("PLANLANAN KESİNTİLER").[AG65536].End(xlUp).Row
cbSaat.RowSource = "PLANLANAN KESİNTİLER!AH2: AH" & Sheets("PLANLANAN KESİNTİLER").[AH65536].End(xlUp).Row
cbDakika.RowSource = "PLANLANAN KESİNTİLER!AI2: AI" & Sheets("PLANLANAN KESİNTİLER").[AI65536].End(xlUp).Row
cbSaniye.RowSource = "PLANLANAN KESİNTİLER!AJ2: AJ" & Sheets("PLANLANAN KESİNTİLER").[AJ65536].End(xlUp).Row
cbSaat2.RowSource = "PLANLANAN KESİNTİLER!AH2: AH" & Sheets("PLANLANAN KESİNTİLER").[AH65536].End(xlUp).Row
cbDakika2.RowSource = "PLANLANAN KESİNTİLER!AI2: AI" & Sheets("PLANLANAN KESİNTİLER").[AI65536].End(xlUp).Row
cbSaniye2.RowSource = "PLANLANAN KESİNTİLER!AJ2: AJ" & Sheets("PLANLANAN KESİNTİLER").[AJ65536].End(xlUp).Row
cbKişi.RowSource = "PLANLANAN KESİNTİLER!AK2: AK" & Sheets("PLANLANAN KESİNTİLER").[AK65536].End(xlUp).Row
cbMİK.RowSource = "PLANLANAN KESİNTİLER!AL2: AL" & Sheets("PLANLANAN KESİNTİLER").[AL65536].End(xlUp).Row
cbKK.RowSource = "PLANLANAN KESİNTİLER!AM2: AM" & Sheets("PLANLANAN KESİNTİLER").[AM65536].End(xlUp).Row
cbMT.RowSource = "PLANLANAN KESİNTİLER!AN2: AN" & Sheets("PLANLANAN KESİNTİLER").[AN65536].End(xlUp).Row
End Sub
Private Sub cmdkaydet_Click()

If txtAdres.Text <> "" Then
         
Son_Dolu_Satir = Sheets("PLANLANAN KESİNTİLER").Range("A65536").End(xlUp).Row

    Bos_Satir = Son_Dolu_Satir + 1
    
    Sheets("PLANLANAN KESİNTİLER").Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("PLANLANAN KESİNTİLER").Range("A:A")) + 1
                   
    Sheets("PLANLANAN KESİNTİLER").Range("b" & Bos_Satir).Value = cbSap.Text
    cbSap.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("c" & Bos_Satir).Value = cbİl.Text
    cbİl.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("d" & Bos_Satir).Value = cbİlçe.Text
    cbİlçe.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("e" & Bos_Satir).Value = cbGün.Text
    cbGün.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("f" & Bos_Satir).Value = cbAy.Text
    cbAy.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("g" & Bos_Satir).Value = cbYıl.Text
    cbYıl.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("h" & Bos_Satir).Value = cbSaat.Text
    cbSaat.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("ı" & Bos_Satir).Value = cbDakika.Text
    cbDakika.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("j" & Bos_Satir).Value = cbSaniye.Text
    cbSaniye.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("k" & Bos_Satir).Value = cbSaat2.Text
    cbSaat2.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("l" & Bos_Satir).Value = cbDakika2.Text
    cbDakika2.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("m" & Bos_Satir).Value = cbSaniye2.Text
    cbSaniye2.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("o" & Bos_Satir).Value = txtAdres.Text
    txtAdres.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("p" & Bos_Satir).Value = txtÖnem.Text
    txtÖnem.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("q" & Bos_Satir).Value = cbKişi.Text
    cbKişi.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("s" & Bos_Satir).Value = txtTR.Text
    txtTR.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("v" & Bos_Satir).Value = cbMİK.Text
    cbMİK.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("w" & Bos_Satir).Value = cbKK.Text
    cbKK.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("x" & Bos_Satir).Value = txtMüş.Text
    txtMüş.Text = ""
    Sheets("PLANLANAN KESİNTİLER").Range("y" & Bos_Satir).Value = cbMT.Text
    cbMT.Text = ""
     Else
     
        MsgBox "isim girmelisiniz ", vbOK
    
    End If
End Sub
 
Son düzenleme:
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,011
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bu şekilde tespit etmek zor olur. Dosyanızı eklerseniz test edebiliriz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst