• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Application defined or object defined error

sinnernekolens

sinnernekolens

Altın Üye
Katılım
23 Temmuz 2009
Mesajlar
310
Excel Vers. ve Dili
Ofis 2019 - Türkçe 64bit
iyi günler, aşağıdaki kod normalde çalışıyordu ama şimdi hata veriyor. yardımlarınızı rica ederim.

Kod: 
Private Sub CommandButton6_Click()
If yontem = "Yeni" Then
   yeni = Sheets("veri").Cells(Rows.Count, "A").End(3).Row + 1
   If WorksheetFunction.CountIf(Sheets("veri").Range("A2:A" & yeni), [D2]) > 0 Then
   MsgBox "Yazdığınız dosya No sistemde kayıtlıdır. " & Chr(10) & _
      "Bilgileri kontrol ediniz.", vbOKOnly
    Exit Sub
   End If
End If
If yontem = "Güncelleme" Then
   Set c = Sheets("veri").[A:A].Find([D2])
    If Not c Is Nothing Then yeni = c.Row
 
End If

Sheets("veri").Cells(yeni, "A") = [D2] 'no
Sheets("veri").Cells(yeni, "B") = [D3] 'date
Sheets("veri").Cells(yeni, "C") = [F1] 'firma
Sheets("veri").Cells(yeni, "D") = [B5] 'vessel
Sheets("veri").Cells(yeni, "E") = [B6] 'flag
Sheets("veri").Cells(yeni, "F") = [B7] 'grt
Sheets("veri").Cells(yeni, "G") = [B8] 'nrt
Sheets("veri").Cells(yeni, "H") = [D5] 'port
Sheets("veri").Cells(yeni, "I") = [D6] 'cargo
Sheets("veri").Cells(yeni, "J") = [D7] 'arrival
Sheets("veri").Cells(yeni, "K") = [D8] 'sailed
Sheets("veri").Cells(yeni, "L") = [F8] 'total
Sheets("veri").Cells(yeni, "M") = [F9] 'alınan
Sheets("veri").Cells(yeni, "N") = [F10] 'kalan
Sheets("veri").Cells(yeni, "O") = [C45] 'döviz tür
Sheets("veri").Cells(yeni, "P") = [B47] 'döviz kur
Sheets("veri").Cells(yeni, "Q") = [A11]
Sheets("veri").Cells(yeni, "R") = [A12]
Sheets("veri").Cells(yeni, "S") = [A13]
Sheets("veri").Cells(yeni, "T") = [A14]
Sheets("veri").Cells(yeni, "U") = [A15]
Sheets("veri").Cells(yeni, "V") = [A16]
Sheets("veri").Cells(yeni, "W") = [A17]
Sheets("veri").Cells(yeni, "X") = [A18]
Sheets("veri").Cells(yeni, "Y") = [A19]
Sheets("veri").Cells(yeni, "Z") = [A20]
Sheets("veri").Cells(yeni, "AA") = [A21]
Sheets("veri").Cells(yeni, "AB") = [A22]
Sheets("veri").Cells(yeni, "AC") = [A23]
Sheets("veri").Cells(yeni, "AD") = [A24]
Sheets("veri").Cells(yeni, "AE") = [A25]
Sheets("veri").Cells(yeni, "AF") = [A26]
Sheets("veri").Cells(yeni, "AG") = [A27]
Sheets("veri").Cells(yeni, "AH") = [A28]
Sheets("veri").Cells(yeni, "AI") = [A29]
Sheets("veri").Cells(yeni, "AJ") = [A30]
Sheets("veri").Cells(yeni, "AK") = [A31]
Sheets("veri").Cells(yeni, "AL") = [A32]
Sheets("veri").Cells(yeni, "AM") = [A33]
Sheets("veri").Cells(yeni, "AN") = [A34]
Sheets("veri").Cells(yeni, "AO") = [A35]
Sheets("veri").Cells(yeni, "AP") = [A36]
Sheets("veri").Cells(yeni, "AQ") = [A37]
Sheets("veri").Cells(yeni, "AR") = [A38]
Sheets("veri").Cells(yeni, "AS") = [A39]
Sheets("veri").Cells(yeni, "AT") = [A40]
Sheets("veri").Cells(yeni, "AU") = [A41]
Sheets("veri").Cells(yeni, "AV") = [A42]
Sheets("veri").Cells(yeni, "AW") = [A43]
Sheets("veri").Cells(yeni, "AX") = [A44]
Sheets("veri").Cells(yeni, "AY") = [B11]
Sheets("veri").Cells(yeni, "AZ") = [B12]
Sheets("veri").Cells(yeni, "BA") = [B13]
Sheets("veri").Cells(yeni, "BB") = [B14]
Sheets("veri").Cells(yeni, "BC") = [B15]
Sheets("veri").Cells(yeni, "BD") = [B16]
Sheets("veri").Cells(yeni, "BE") = [B17]
Sheets("veri").Cells(yeni, "BF") = [B18]
Sheets("veri").Cells(yeni, "BG") = [B19]
Sheets("veri").Cells(yeni, "BH") = [B20]
Sheets("veri").Cells(yeni, "BI") = [B21]
Sheets("veri").Cells(yeni, "BJ") = [B22]
Sheets("veri").Cells(yeni, "BK") = [B23]
Sheets("veri").Cells(yeni, "BL") = [B24]
Sheets("veri").Cells(yeni, "BM") = [B25]
Sheets("veri").Cells(yeni, "BN") = [B26]
Sheets("veri").Cells(yeni, "BO") = [B27]
Sheets("veri").Cells(yeni, "BP") = [B28]
Sheets("veri").Cells(yeni, "BQ") = [B29]
Sheets("veri").Cells(yeni, "BR") = [B30]
Sheets("veri").Cells(yeni, "BS") = [B31]
Sheets("veri").Cells(yeni, "BT") = [B32]
Sheets("veri").Cells(yeni, "BU") = [B33]
Sheets("veri").Cells(yeni, "BV") = [B34]
Sheets("veri").Cells(yeni, "BW") = [B35]
Sheets("veri").Cells(yeni, "BX") = [B36]
Sheets("veri").Cells(yeni, "BY") = [B37]
Sheets("veri").Cells(yeni, "BZ") = [B38]
Sheets("veri").Cells(yeni, "CA") = [B39]
Sheets("veri").Cells(yeni, "CB") = [B40]
Sheets("veri").Cells(yeni, "CC") = [B41]
Sheets("veri").Cells(yeni, "CD") = [B42]
Sheets("veri").Cells(yeni, "CE") = [B43]
Sheets("veri").Cells(yeni, "CF") = [B44]
Sheets("veri").Cells(yeni, "CG") = [D11]
Sheets("veri").Cells(yeni, "CH") = [D12]
Sheets("veri").Cells(yeni, "CI") = [D13]
Sheets("veri").Cells(yeni, "CJ") = [D14]
Sheets("veri").Cells(yeni, "CK") = [D15]
Sheets("veri").Cells(yeni, "CL") = [D16]
Sheets("veri").Cells(yeni, "CM") = [D17]
Sheets("veri").Cells(yeni, "CN") = [D18]
Sheets("veri").Cells(yeni, "CO") = [D19]
Sheets("veri").Cells(yeni, "CP") = [D20]
Sheets("veri").Cells(yeni, "CQ") = [D21]
Sheets("veri").Cells(yeni, "CR") = [D22]
Sheets("veri").Cells(yeni, "CS") = [D23]
Sheets("veri").Cells(yeni, "CT") = [D24]
Sheets("veri").Cells(yeni, "CU") = [D25]
Sheets("veri").Cells(yeni, "CV") = [D26]
Sheets("veri").Cells(yeni, "CW") = [D27]
Sheets("veri").Cells(yeni, "CX") = [D28]
Sheets("veri").Cells(yeni, "CY") = [D29]
Sheets("veri").Cells(yeni, "CZ") = [D30]
Sheets("veri").Cells(yeni, "DA") = [D31]
Sheets("veri").Cells(yeni, "DB") = [D32]
Sheets("veri").Cells(yeni, "DC") = [D33]
Sheets("veri").Cells(yeni, "DD") = [D34]
Sheets("veri").Cells(yeni, "DE") = [D35]
Sheets("veri").Cells(yeni, "DF") = [D36]
Sheets("veri").Cells(yeni, "DG") = [D37]
Sheets("veri").Cells(yeni, "DI") = [D38]
Sheets("veri").Cells(yeni, "DJ") = [D39]
Sheets("veri").Cells(yeni, "DK") = [D40]
Sheets("veri").Cells(yeni, "DL") = [D41]
Sheets("veri").Cells(yeni, "DM") = [D42]
Sheets("veri").Cells(yeni, "DN") = [D43]
Sheets("veri").Cells(yeni, "DO") = [D44]
10:
MsgBox "Sisteme kaydedilmiştir.", vbInformation
End Sub
 

Ekli dosyalar

Kod bu bölümde
Kod: 
If yontem = "Yeni" Then
"Yeni" değişkeninin aramaktadır değişken hem son satır adı hemde farklı bir isim

Böyle denermisiniz.

Kod: 
Private Sub CommandButton6_Click()
son = Sheets("veri").Cells(Rows.Count, "A").End(3).Row + 1
If yontem = "Yeni" Then

If WorksheetFunction.CountIf(Sheets("veri").Range("A2:A" & son), [D2]) > 0 Then
MsgBox "Yazdığınız dosya No sistemde kayıtlıdır. " & Chr(10) & _
"Bilgileri kontrol ediniz.", vbOKOnly
GoTo 10
Exit Sub
End If
End If
If yontem = "Güncelleme" Then
Set c = Sheets("veri").[A:A].Find([D2])
If Not c Is Nothing Then son = c.Row

End If

Sheets("veri").Cells(son, "A") = [D2] 'no
Sheets("veri").Cells(son, "B") = [D3] 'date
Sheets("veri").Cells(son, "C") = [F1] 'firma
Sheets("veri").Cells(son, "D") = [B5] 'vessel
Sheets("veri").Cells(son, "E") = [B6] 'flag
Sheets("veri").Cells(son, "F") = [B7] 'grt
Sheets("veri").Cells(son, "G") = [B8] 'nrt
Sheets("veri").Cells(son, "H") = [D5] 'port
Sheets("veri").Cells(son, "I") = [D6] 'cargo
Sheets("veri").Cells(son, "J") = [D7] 'arrival
Sheets("veri").Cells(son, "K") = [D8] 'sailed
Sheets("veri").Cells(son, "L") = [F8] 'total
Sheets("veri").Cells(son, "M") = [F9] 'alınan
Sheets("veri").Cells(son, "N") = [F10] 'kalan
Sheets("veri").Cells(son, "O") = [C45] 'döviz tür
Sheets("veri").Cells(son, "P") = [B47] 'döviz kur
Sheets("veri").Cells(son, "Q") = [A11]
Sheets("veri").Cells(son, "R") = [A12]
Sheets("veri").Cells(son, "S") = [A13]
Sheets("veri").Cells(son, "T") = [A14]
Sheets("veri").Cells(son, "U") = [A15]
Sheets("veri").Cells(son, "V") = [A16]
Sheets("veri").Cells(son, "W") = [A17]
Sheets("veri").Cells(son, "X") = [A18]
Sheets("veri").Cells(son, "Y") = [A19]
Sheets("veri").Cells(son, "Z") = [A20]
Sheets("veri").Cells(son, "AA") = [A21]
Sheets("veri").Cells(son, "AB") = [A22]
Sheets("veri").Cells(son, "AC") = [A23]
Sheets("veri").Cells(son, "AD") = [A24]
Sheets("veri").Cells(son, "AE") = [A25]
Sheets("veri").Cells(son, "AF") = [A26]
Sheets("veri").Cells(son, "AG") = [A27]
Sheets("veri").Cells(son, "AH") = [A28]
Sheets("veri").Cells(son, "AI") = [A29]
Sheets("veri").Cells(son, "AJ") = [A30]
Sheets("veri").Cells(son, "AK") = [A31]
Sheets("veri").Cells(son, "AL") = [A32]
Sheets("veri").Cells(son, "AM") = [A33]
Sheets("veri").Cells(son, "AN") = [A34]
Sheets("veri").Cells(son, "AO") = [A35]
Sheets("veri").Cells(son, "AP") = [A36]
Sheets("veri").Cells(son, "AQ") = [A37]
Sheets("veri").Cells(son, "AR") = [A38]
Sheets("veri").Cells(son, "AS") = [A39]
Sheets("veri").Cells(son, "AT") = [A40]
Sheets("veri").Cells(son, "AU") = [A41]
Sheets("veri").Cells(son, "AV") = [A42]
Sheets("veri").Cells(son, "AW") = [A43]
Sheets("veri").Cells(son, "AX") = [A44]
Sheets("veri").Cells(son, "AY") = [B11]
Sheets("veri").Cells(son, "AZ") = [B12]
Sheets("veri").Cells(son, "BA") = [B13]
Sheets("veri").Cells(son, "BB") = [B14]
Sheets("veri").Cells(son, "BC") = [B15]
Sheets("veri").Cells(son, "BD") = [B16]
Sheets("veri").Cells(son, "BE") = [B17]
Sheets("veri").Cells(son, "BF") = [B18]
Sheets("veri").Cells(son, "BG") = [B19]
Sheets("veri").Cells(son, "BH") = [B20]
Sheets("veri").Cells(son, "BI") = [B21]
Sheets("veri").Cells(son, "BJ") = [B22]
Sheets("veri").Cells(son, "BK") = [B23]
Sheets("veri").Cells(son, "BL") = [B24]
Sheets("veri").Cells(son, "BM") = [B25]
Sheets("veri").Cells(son, "BN") = [B26]
Sheets("veri").Cells(son, "BO") = [B27]
Sheets("veri").Cells(son, "BP") = [B28]
Sheets("veri").Cells(son, "BQ") = [B29]
Sheets("veri").Cells(son, "BR") = [B30]
Sheets("veri").Cells(son, "BS") = [B31]
Sheets("veri").Cells(son, "BT") = [B32]
Sheets("veri").Cells(son, "BU") = [B33]
Sheets("veri").Cells(son, "BV") = [B34]
Sheets("veri").Cells(son, "BW") = [B35]
Sheets("veri").Cells(son, "BX") = [B36]
Sheets("veri").Cells(son, "BY") = [B37]
Sheets("veri").Cells(son, "BZ") = [B38]
Sheets("veri").Cells(son, "CA") = [B39]
Sheets("veri").Cells(son, "CB") = [B40]
Sheets("veri").Cells(son, "CC") = [B41]
Sheets("veri").Cells(son, "CD") = [B42]
Sheets("veri").Cells(son, "CE") = [B43]
Sheets("veri").Cells(son, "CF") = [B44]
Sheets("veri").Cells(son, "CG") = [D11]
Sheets("veri").Cells(son, "CH") = [D12]
Sheets("veri").Cells(son, "CI") = [D13]
Sheets("veri").Cells(son, "CJ") = [D14]
Sheets("veri").Cells(son, "CK") = [D15]
Sheets("veri").Cells(son, "CL") = [D16]
Sheets("veri").Cells(son, "CM") = [D17]
Sheets("veri").Cells(son, "CN") = [D18]
Sheets("veri").Cells(son, "CO") = [D19]
Sheets("veri").Cells(son, "CP") = [D20]
Sheets("veri").Cells(son, "CQ") = [D21]
Sheets("veri").Cells(son, "CR") = [D22]
Sheets("veri").Cells(son, "CS") = [D23]
Sheets("veri").Cells(son, "CT") = [D24]
Sheets("veri").Cells(son, "CU") = [D25]
Sheets("veri").Cells(son, "CV") = [D26]
Sheets("veri").Cells(son, "CW") = [D27]
Sheets("veri").Cells(son, "CX") = [D28]
Sheets("veri").Cells(son, "CY") = [D29]
Sheets("veri").Cells(son, "CZ") = [D30]
Sheets("veri").Cells(son, "DA") = [D31]
Sheets("veri").Cells(son, "DB") = [D32]
Sheets("veri").Cells(son, "DC") = [D33]
Sheets("veri").Cells(son, "DD") = [D34]
Sheets("veri").Cells(son, "DE") = [D35]
Sheets("veri").Cells(son, "DF") = [D36]
Sheets("veri").Cells(son, "DG") = [D37]
Sheets("veri").Cells(son, "DI") = [D38]
Sheets("veri").Cells(son, "DJ") = [D39]
Sheets("veri").Cells(son, "DK") = [D40]
Sheets("veri").Cells(son, "DL") = [D41]
Sheets("veri").Cells(son, "DM") = [D42]
Sheets("veri").Cells(son, "DN") = [D43]
Sheets("veri").Cells(son, "DO") = [D44]
10:
MsgBox "Sisteme kaydedilmiştir.", vbInformation
End Sub
 
Halit bey, teşekkür ederim elinize sağlık.

Ancak her kaydet butonuna bastığımda aynı numara ile farklı kayıtlar oluşturmaktadır.
 
Evvelce kendi kodunuz istediğiniz işlemi yapıyormuydu ?
Eğer yapıyor ise benim değiştirdiğim kodu silin siz YENİ KAYIT düğmesine tıkla gelen onayı onayla sonrada KAYDET düğmesini tıkla
 
sinnernekolens' Alıntı:
Halit bey, teşekkür ederim elinize sağlık.

Ancak her kaydet butonuna bastığımda aynı numara ile farklı kayıtlar oluşturmaktadır.
Genişletmek için tıkla ...

böyle olmayacakmıydı

birde bu kodu dene

Kod: 
Private Sub CommandButton6_Click()
son = Sheets("veri").Cells(Rows.Count, "A").End(3).Row + 1

If WorksheetFunction.CountIf(Sheets("veri").Range("A2:A" & son), Cells(2, "d")) > 0 Then
MsgBox "Yazdığınız dosya No sistemde kayıtlıdır. " & Chr(10) & _
"Bilgileri kontrol ediniz.", vbOKOnly
GoTo 10
End If
If yontem = "Güncelleme" Then
Set c = Sheets("veri").[A:A].Find([D2])
If Not c Is Nothing Then son = c.Row
End If

Sheets("veri").Cells(son, "A") = [D2] 'no
Sheets("veri").Cells(son, "B") = [D3] 'date
Sheets("veri").Cells(son, "C") = [F1] 'firma
Sheets("veri").Cells(son, "D") = [B5] 'vessel
Sheets("veri").Cells(son, "E") = [B6] 'flag
Sheets("veri").Cells(son, "F") = [B7] 'grt
Sheets("veri").Cells(son, "G") = [B8] 'nrt
Sheets("veri").Cells(son, "H") = [D5] 'port
Sheets("veri").Cells(son, "I") = [D6] 'cargo
Sheets("veri").Cells(son, "J") = [D7] 'arrival
Sheets("veri").Cells(son, "K") = [D8] 'sailed
Sheets("veri").Cells(son, "L") = [F8] 'total
Sheets("veri").Cells(son, "M") = [F9] 'alınan
Sheets("veri").Cells(son, "N") = [F10] 'kalan
Sheets("veri").Cells(son, "O") = [C45] 'döviz tür
Sheets("veri").Cells(son, "P") = [B47] 'döviz kur
Sheets("veri").Cells(son, "Q") = [A11]
Sheets("veri").Cells(son, "R") = [A12]
Sheets("veri").Cells(son, "S") = [A13]
Sheets("veri").Cells(son, "T") = [A14]
Sheets("veri").Cells(son, "U") = [A15]
Sheets("veri").Cells(son, "V") = [A16]
Sheets("veri").Cells(son, "W") = [A17]
Sheets("veri").Cells(son, "X") = [A18]
Sheets("veri").Cells(son, "Y") = [A19]
Sheets("veri").Cells(son, "Z") = [A20]
Sheets("veri").Cells(son, "AA") = [A21]
Sheets("veri").Cells(son, "AB") = [A22]
Sheets("veri").Cells(son, "AC") = [A23]
Sheets("veri").Cells(son, "AD") = [A24]
Sheets("veri").Cells(son, "AE") = [A25]
Sheets("veri").Cells(son, "AF") = [A26]
Sheets("veri").Cells(son, "AG") = [A27]
Sheets("veri").Cells(son, "AH") = [A28]
Sheets("veri").Cells(son, "AI") = [A29]
Sheets("veri").Cells(son, "AJ") = [A30]
Sheets("veri").Cells(son, "AK") = [A31]
Sheets("veri").Cells(son, "AL") = [A32]
Sheets("veri").Cells(son, "AM") = [A33]
Sheets("veri").Cells(son, "AN") = [A34]
Sheets("veri").Cells(son, "AO") = [A35]
Sheets("veri").Cells(son, "AP") = [A36]
Sheets("veri").Cells(son, "AQ") = [A37]
Sheets("veri").Cells(son, "AR") = [A38]
Sheets("veri").Cells(son, "AS") = [A39]
Sheets("veri").Cells(son, "AT") = [A40]
Sheets("veri").Cells(son, "AU") = [A41]
Sheets("veri").Cells(son, "AV") = [A42]
Sheets("veri").Cells(son, "AW") = [A43]
Sheets("veri").Cells(son, "AX") = [A44]
Sheets("veri").Cells(son, "AY") = [B11]
Sheets("veri").Cells(son, "AZ") = [B12]
Sheets("veri").Cells(son, "BA") = [B13]
Sheets("veri").Cells(son, "BB") = [B14]
Sheets("veri").Cells(son, "BC") = [B15]
Sheets("veri").Cells(son, "BD") = [B16]
Sheets("veri").Cells(son, "BE") = [B17]
Sheets("veri").Cells(son, "BF") = [B18]
Sheets("veri").Cells(son, "BG") = [B19]
Sheets("veri").Cells(son, "BH") = [B20]
Sheets("veri").Cells(son, "BI") = [B21]
Sheets("veri").Cells(son, "BJ") = [B22]
Sheets("veri").Cells(son, "BK") = [B23]
Sheets("veri").Cells(son, "BL") = [B24]
Sheets("veri").Cells(son, "BM") = [B25]
Sheets("veri").Cells(son, "BN") = [B26]
Sheets("veri").Cells(son, "BO") = [B27]
Sheets("veri").Cells(son, "BP") = [B28]
Sheets("veri").Cells(son, "BQ") = [B29]
Sheets("veri").Cells(son, "BR") = [B30]
Sheets("veri").Cells(son, "BS") = [B31]
Sheets("veri").Cells(son, "BT") = [B32]
Sheets("veri").Cells(son, "BU") = [B33]
Sheets("veri").Cells(son, "BV") = [B34]
Sheets("veri").Cells(son, "BW") = [B35]
Sheets("veri").Cells(son, "BX") = [B36]
Sheets("veri").Cells(son, "BY") = [B37]
Sheets("veri").Cells(son, "BZ") = [B38]
Sheets("veri").Cells(son, "CA") = [B39]
Sheets("veri").Cells(son, "CB") = [B40]
Sheets("veri").Cells(son, "CC") = [B41]
Sheets("veri").Cells(son, "CD") = [B42]
Sheets("veri").Cells(son, "CE") = [B43]
Sheets("veri").Cells(son, "CF") = [B44]
Sheets("veri").Cells(son, "CG") = [D11]
Sheets("veri").Cells(son, "CH") = [D12]
Sheets("veri").Cells(son, "CI") = [D13]
Sheets("veri").Cells(son, "CJ") = [D14]
Sheets("veri").Cells(son, "CK") = [D15]
Sheets("veri").Cells(son, "CL") = [D16]
Sheets("veri").Cells(son, "CM") = [D17]
Sheets("veri").Cells(son, "CN") = [D18]
Sheets("veri").Cells(son, "CO") = [D19]
Sheets("veri").Cells(son, "CP") = [D20]
Sheets("veri").Cells(son, "CQ") = [D21]
Sheets("veri").Cells(son, "CR") = [D22]
Sheets("veri").Cells(son, "CS") = [D23]
Sheets("veri").Cells(son, "CT") = [D24]
Sheets("veri").Cells(son, "CU") = [D25]
Sheets("veri").Cells(son, "CV") = [D26]
Sheets("veri").Cells(son, "CW") = [D27]
Sheets("veri").Cells(son, "CX") = [D28]
Sheets("veri").Cells(son, "CY") = [D29]
Sheets("veri").Cells(son, "CZ") = [D30]
Sheets("veri").Cells(son, "DA") = [D31]
Sheets("veri").Cells(son, "DB") = [D32]
Sheets("veri").Cells(son, "DC") = [D33]
Sheets("veri").Cells(son, "DD") = [D34]
Sheets("veri").Cells(son, "DE") = [D35]
Sheets("veri").Cells(son, "DF") = [D36]
Sheets("veri").Cells(son, "DG") = [D37]
Sheets("veri").Cells(son, "DI") = [D38]
Sheets("veri").Cells(son, "DJ") = [D39]
Sheets("veri").Cells(son, "DK") = [D40]
Sheets("veri").Cells(son, "DL") = [D41]
Sheets("veri").Cells(son, "DM") = [D42]
Sheets("veri").Cells(son, "DN") = [D43]
Sheets("veri").Cells(son, "DO") = [D44]

MsgBox "Sisteme kaydedilmiştir.", vbInformation
10:
End Sub
 
sinnernekolens' Alıntı:
Halit bey, kayıt işlemi tamam ancak kayıt güncellemiyor.

Ara ile kayıt seçerseniz KAYIT butonu güncelleme olarak çalışacak.
Yeni kayıt ile işlem yaparsanız KAYIT butonu yeni kayıt olarak çalışacaktır.

şeklinde çalışıyordu.

http://www.excel.web.tr/f14/guncelleme-t165800.html
Genişletmek için tıkla ...

Yine söylüyorum sizin kodunuz evvelce çalışıyormuydu?

Bence çalışmıyordu çünkü
Kod: 
If yontem = "Güncelleme" Then
yontem değişkeni Güncelleme veya yeni kayıtı nasıl algılıyor.
 
Halit bey, bir önceki versiyonu ektedir. bunda kayıtlı numarayı çağırıp düzeltme yapıp kaydet diyince kayıt ediyordu. yani kod çalışıyordu. ancak pek sağlıklı değildi. Kayıtlı bilgileri güncellemek için farklı bir öneriniz varsa yardımlarınızı rica ederim.
 

Ekli dosyalar

  • FDA.xls
    FDA.xls
    292 KB · Görüntüleme: 1
Bahsettiğiniz kodların bulunduğu pencerede en üst satıra yani deklarasyon bölümüne aşağıdaki kodu uygulayın.

Kırmızı satırın üstünde olacak şekilde yazınız.

Yeni kayıt butonuna tıkladığınızda "yontem" değişkeninize değer atamış olacaksınız.

Kod: 
Dim yontem as String

[COLOR="Red"]Private Sub CommandButton3_Click()[/COLOR]
....
 
Değişkenlerin nereden geldiğini bilmiyorum ama kodu bu şekliyle bir kullanın sonucu buraya yazın.

Kod: 
Private Sub CommandButton6_Click()


son = Sheets("veri").Cells(Rows.Count, "A").End(3).Row + 1

If WorksheetFunction.CountIf(Sheets("veri").Range("A2:A" & son), [D2]) > 0 Then
MsgBox "Yazdığınız dosya No sistemde kayıtlıdır. " & Chr(10) & _
"Bilgileri kontrol ediniz.", vbOKOnly

msg1 = MsgBox("Verileri Güncelemek istiyormusunuz. ?", vbYesNo + vbInformation, "u y a r ı !")

If msg1 = vbYes Then
Set c = Sheets("veri").[A:A].Find([D2])
If Not c Is Nothing Then son = c.Row
End If

If msg1 = vbNo Then
GoTo atla
End If

End If

Sheets("veri").Cells(son, "A") = [D2] 'no
Sheets("veri").Cells(son, "B") = [D3] 'date
Sheets("veri").Cells(son, "C") = [F1] 'firma
Sheets("veri").Cells(son, "D") = [B5] 'vessel
Sheets("veri").Cells(son, "E") = [B6] 'flag
Sheets("veri").Cells(son, "F") = [B7] 'grt
Sheets("veri").Cells(son, "G") = [B8] 'nrt
Sheets("veri").Cells(son, "H") = [D5] 'port
Sheets("veri").Cells(son, "I") = [D6] 'cargo
Sheets("veri").Cells(son, "J") = [D7] 'arrival
Sheets("veri").Cells(son, "K") = [D8] 'sailed
Sheets("veri").Cells(son, "L") = [F8] 'total
Sheets("veri").Cells(son, "M") = [F9] 'alınan
Sheets("veri").Cells(son, "N") = [F10] 'kalan
Sheets("veri").Cells(son, "O") = [C45] 'döviz tür
Sheets("veri").Cells(son, "P") = [B47] 'döviz kur
Sheets("veri").Cells(son, "Q") = [A11]
Sheets("veri").Cells(son, "R") = [A12]
Sheets("veri").Cells(son, "S") = [A13]
Sheets("veri").Cells(son, "T") = [A14]
Sheets("veri").Cells(son, "U") = [A15]
Sheets("veri").Cells(son, "V") = [A16]
Sheets("veri").Cells(son, "W") = [A17]
Sheets("veri").Cells(son, "X") = [A18]
Sheets("veri").Cells(son, "Y") = [A19]
Sheets("veri").Cells(son, "Z") = [A20]
Sheets("veri").Cells(son, "AA") = [A21]
Sheets("veri").Cells(son, "AB") = [A22]
Sheets("veri").Cells(son, "AC") = [A23]
Sheets("veri").Cells(son, "AD") = [A24]
Sheets("veri").Cells(son, "AE") = [A25]
Sheets("veri").Cells(son, "AF") = [A26]
Sheets("veri").Cells(son, "AG") = [A27]
Sheets("veri").Cells(son, "AH") = [A28]
Sheets("veri").Cells(son, "AI") = [A29]
Sheets("veri").Cells(son, "AJ") = [A30]
Sheets("veri").Cells(son, "AK") = [A31]
Sheets("veri").Cells(son, "AL") = [A32]
Sheets("veri").Cells(son, "AM") = [A33]
Sheets("veri").Cells(son, "AN") = [A34]
Sheets("veri").Cells(son, "AO") = [A35]
Sheets("veri").Cells(son, "AP") = [A36]
Sheets("veri").Cells(son, "AQ") = [A37]
Sheets("veri").Cells(son, "AR") = [A38]
Sheets("veri").Cells(son, "AS") = [A39]
Sheets("veri").Cells(son, "AT") = [A40]
Sheets("veri").Cells(son, "AU") = [A41]
Sheets("veri").Cells(son, "AV") = [A42]
Sheets("veri").Cells(son, "AW") = [A43]
Sheets("veri").Cells(son, "AX") = [A44]
Sheets("veri").Cells(son, "AY") = [B11]
Sheets("veri").Cells(son, "AZ") = [B12]
Sheets("veri").Cells(son, "BA") = [B13]
Sheets("veri").Cells(son, "BB") = [B14]
Sheets("veri").Cells(son, "BC") = [B15]
Sheets("veri").Cells(son, "BD") = [B16]
Sheets("veri").Cells(son, "BE") = [B17]
Sheets("veri").Cells(son, "BF") = [B18]
Sheets("veri").Cells(son, "BG") = [B19]
Sheets("veri").Cells(son, "BH") = [B20]
Sheets("veri").Cells(son, "BI") = [B21]
Sheets("veri").Cells(son, "BJ") = [B22]
Sheets("veri").Cells(son, "BK") = [B23]
Sheets("veri").Cells(son, "BL") = [B24]
Sheets("veri").Cells(son, "BM") = [B25]
Sheets("veri").Cells(son, "BN") = [B26]
Sheets("veri").Cells(son, "BO") = [B27]
Sheets("veri").Cells(son, "BP") = [B28]
Sheets("veri").Cells(son, "BQ") = [B29]
Sheets("veri").Cells(son, "BR") = [B30]
Sheets("veri").Cells(son, "BS") = [B31]
Sheets("veri").Cells(son, "BT") = [B32]
Sheets("veri").Cells(son, "BU") = [B33]
Sheets("veri").Cells(son, "BV") = [B34]
Sheets("veri").Cells(son, "BW") = [B35]
Sheets("veri").Cells(son, "BX") = [B36]
Sheets("veri").Cells(son, "BY") = [B37]
Sheets("veri").Cells(son, "BZ") = [B38]
Sheets("veri").Cells(son, "CA") = [B39]
Sheets("veri").Cells(son, "CB") = [B40]
Sheets("veri").Cells(son, "CC") = [B41]
Sheets("veri").Cells(son, "CD") = [B42]
Sheets("veri").Cells(son, "CE") = [B43]
Sheets("veri").Cells(son, "CF") = [B44]
Sheets("veri").Cells(son, "CG") = [D11]
Sheets("veri").Cells(son, "CH") = [D12]
Sheets("veri").Cells(son, "CI") = [D13]
Sheets("veri").Cells(son, "CJ") = [D14]
Sheets("veri").Cells(son, "CK") = [D15]
Sheets("veri").Cells(son, "CL") = [D16]
Sheets("veri").Cells(son, "CM") = [D17]
Sheets("veri").Cells(son, "CN") = [D18]
Sheets("veri").Cells(son, "CO") = [D19]
Sheets("veri").Cells(son, "CP") = [D20]
Sheets("veri").Cells(son, "CQ") = [D21]
Sheets("veri").Cells(son, "CR") = [D22]
Sheets("veri").Cells(son, "CS") = [D23]
Sheets("veri").Cells(son, "CT") = [D24]
Sheets("veri").Cells(son, "CU") = [D25]
Sheets("veri").Cells(son, "CV") = [D26]
Sheets("veri").Cells(son, "CW") = [D27]
Sheets("veri").Cells(son, "CX") = [D28]
Sheets("veri").Cells(son, "CY") = [D29]
Sheets("veri").Cells(son, "CZ") = [D30]
Sheets("veri").Cells(son, "DA") = [D31]
Sheets("veri").Cells(son, "DB") = [D32]
Sheets("veri").Cells(son, "DC") = [D33]
Sheets("veri").Cells(son, "DD") = [D34]
Sheets("veri").Cells(son, "DE") = [D35]
Sheets("veri").Cells(son, "DF") = [D36]
Sheets("veri").Cells(son, "DG") = [D37]
Sheets("veri").Cells(son, "DI") = [D38]
Sheets("veri").Cells(son, "DJ") = [D39]
Sheets("veri").Cells(son, "DK") = [D40]
Sheets("veri").Cells(son, "DL") = [D41]
Sheets("veri").Cells(son, "DM") = [D42]
Sheets("veri").Cells(son, "DN") = [D43]
Sheets("veri").Cells(son, "DO") = [D44]

MsgBox "Sisteme kaydedilmiştir.", vbInformation
atla:
End Sub
 
Halit bey, Korhan bey çok teşekkür ederim son kodlar doğru çalışıyor. Allah razı olsun.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst