YAzdığım Kod çalışırken Excel göçüyor :(

[yenilik025]

Merhabalar. Yazdığım Kod çalışırken göçüyor nasıl bir yol izlemeliyim.
Kafamdan geçen değişen Comboboxu ya da comboboxları bulup bulup onu onları değiştirmesi ama nasıl yapmalıyım ?


Private Sub CommandButton3_Click()
Sheets("PERSONELLER").Unprotect "xxx"
Sheets("PERSONELLER").Select

If ComboBox1.Value = "" Then
MsgBox "Lütfen Daire No'sunu Giriniz", " Örnek: 2017-A1-1 "
ComboBox1.SetFocus
Exit Sub
End If

Set bulxa = Sheets("PERSONELLER").[b:b].Find(ComboBox1)

If Not bulxa Is Nothing Then

bulxa.Offset(0, 0) = ComboBox1
bulxa.Offset(0, 1) = ComboBox2
bulxa.Offset(0, 2) = ComboBox3 'devreden aidat borç
bulxa.Offset(0, 3) = ComboBox4 'ocak
bulxa.Offset(0, 4) = ComboBox5
bulxa.Offset(0, 5) = ComboBox6
bulxa.Offset(0, 6) = ComboBox7
bulxa.Offset(0, 7) = ComboBox8
bulxa.Offset(0, 8) = ComboBox9
bulxa.Offset(0, 9) = ComboBox10
bulxa.Offset(0, 10) = ComboBox11
bulxa.Offset(0, 11) = ComboBox12
bulxa.Offset(0, 12) = ComboBox13
bulxa.Offset(0, 13) = ComboBox14
bulxa.Offset(0, 14) = ComboBox15 'aralık

bulxa.Offset(0, 28) = ComboBox17 'devreden elektrik borç
bulxa.Offset(0, 29) = ComboBox18 'ocak
bulxa.Offset(0, 30) = ComboBox19
bulxa.Offset(0, 31) = ComboBox20
bulxa.Offset(0, 32) = ComboBox21
bulxa.Offset(0, 33) = ComboBox22
bulxa.Offset(0, 34) = ComboBox23
bulxa.Offset(0, 35) = ComboBox24
bulxa.Offset(0, 36) = ComboBox25
bulxa.Offset(0, 37) = ComboBox26
bulxa.Offset(0, 38) = ComboBox27
bulxa.Offset(0, 39) = ComboBox28
bulxa.Offset(0, 40) = ComboBox29 'aralık

bulxa.Offset(0, 54) = ComboBox31 'devreden su borcu
bulxa.Offset(0, 55) = ComboBox32 'ocak
bulxa.Offset(0, 56) = ComboBox33
bulxa.Offset(0, 57) = ComboBox34
bulxa.Offset(0, 58) = ComboBox35
bulxa.Offset(0, 59) = ComboBox36
bulxa.Offset(0, 60) = ComboBox37
bulxa.Offset(0, 61) = ComboBox38
bulxa.Offset(0, 62) = ComboBox39
bulxa.Offset(0, 63) = ComboBox40
bulxa.Offset(0, 64) = ComboBox41
bulxa.Offset(0, 65) = ComboBox42
bulxa.Offset(0, 66) = ComboBox43 'aralık

bulxa.Offset(0, 80) = ComboBox45 'devreden harici borç
bulxa.Offset(0, 81) = ComboBox46 'ocak
bulxa.Offset(0, 82) = ComboBox47
bulxa.Offset(0, 83) = ComboBox48
bulxa.Offset(0, 84) = ComboBox49
bulxa.Offset(0, 85) = ComboBox50
bulxa.Offset(0, 86) = ComboBox51
bulxa.Offset(0, 87) = ComboBox52
bulxa.Offset(0, 88) = ComboBox53
bulxa.Offset(0, 89) = ComboBox54
bulxa.Offset(0, 90) = ComboBox55
bulxa.Offset(0, 91) = ComboBox56
bulxa.Offset(0, 92) = ComboBox57 'aralık

MsgBox ComboBox1.Value & " ' Borç Bİlgileri Güncelleniyor", " ***** Lütfen Bekleyiniz ***** "

UserForm2.ComboBox1.Value = UserForm1.ComboBox1.Value
UserForm2.ComboBox2.Value = UserForm1.ComboBox2.Value

Call temizle

Sheets("PERSONELLER").Protect "xxx"
Unload Me
UserForm2.Show

Else

MsgBox ComboBox1.Value & " ' ye ait bilgiler Güncellenemedi", , " Güncelleme Hatası Oluştu Yeniden Deneyiniz."
Exit Sub
End If


End Sub

 

[Korhan Ayhan]

Örnek dosyanızı ekleyip yapmak istediğiniz işlemi açıklarsanız yardım almanız kolaylaşır.

 

[yenilik025]

Excel Resmen göçüyor sanırım.

Hocam merhabalar Kodları küçülttüm.

1-Kayıt yaparken Excel resmen göçüyor
2-Kaydettiğim ayın bilgisini, tutaını Örnekteki gibi aktarabilirmiyiz bu kodlara ilave olarak

Örnek dosyanızı ekleyip yapmak istediğiniz işlemi açıklarsanız yardım almanız kolaylaşır.