hücre değeri ile combodaki değeri toplatma

[hikmet]

günaydın sn.hocalarım ve arkadaşlarım;
aşağıda verdiğim kodun son satırında combo1'i referans alarak bulunan satırın N sütununda bulunan hücrenin değeri ile Combo2 deki değeri toplatmak istiyorum fakat işlem sadece N5 olarak çıkmakta.

ge.Range("N" & sat).Value = ComboBox2 + (sat & "N") satırını nasıl değiştirmeliyimki combo2 ve bulduğu satırdaki hücreyi toplayabilsin. yardımlarınız için şimdiden teşekkür ederim.


Private Sub CommandButton1_Click()
Set ge = Sheets("GENEL")
Set ha = Sheets("KONTROL")
say1 = WorksheetFunction.CountA(ha.Range("a2:a65536")) + 1
say2 = WorksheetFunction.CountA(ge.Range("b2:b65536")) + 1
ha.Range("a" & say1) = ComboBox1
ha.Range("b" & say1) = ComboBox2
ha.Range("c" & say2) = TextBox1
ha.Range("d" & say2) = ComboBox3
sat = [genel!b1:b65536].Find(ComboBox1).Row
ge.Range("m" & sat) = ComboBox3
ge.Range("N" & sat).Value = ComboBox2 + (sat & "N")



End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi değiştirin.

ge.Range("N" & sat).Value = cdbl(ComboBox2) + (sat & "N")

veya

ge.Range("N" & sat).Value = ComboBox2*1 + (sat & "N")

 

[hikmet]

hocam ilginiz için teşekkür ederim;
kodu değiştirdim fakat bu kodda da aynı hatayı veriyor tip uyuşmalığı hatası; kodu izlediğimde combo2'de 80 değeri var +(sat & "N") koduna baktığımda N5 değeri veriyor dolayısı ile 80+N5 değerini toplayamadığı için tip uyuşmazlığı hatası veriyor.
(sat & "N") olan kısmı vba da izlediğimde normalde n5 hücresinde bulunan 20 değerini göstermesi lazım ama kod hücrenin adresini değer olarak görüyor.

 

[Orion1]

Merhaba.

+ (sat & "N")

kodunu

+ cells(sat,"N").value

şeklinde denesiniz.

 

[hikmet]

merhaba;
sn.leventm hocam, sezar hocam ilginiz için çok teşekkür ederim yardımlarınız sayesinde sorun çözüldü sağolun var olun. ilgilenen herkese çok teşekkür ederim.

 

[Orion1]

Rica ederim.
İyi çalışmalar.:keyif:

 

[hikmet]

merhaba sn.hocalarım ve arkadaşlarım;
aşağıdaki kodu çalıştırdığımda hatalı çalışıyor. harehet sayfasında aynı koddan yüzlerce olsa bile son mal kodununun karşısındaki değeri alıp yverı sayfasındaki n hücresi ile toplaması gerekirken bir önceki hücreleri de toplayıp yazması gereken hücreye yazıyor. nerde hata yapıyorum. kıymetli bilgilerinizi paylaşırmısınız.

Private Sub CommandButton1_Click()
Sheets("HAREKET").Select
Range("a1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'..........................................................
'Textbox kutularındaki verileri hücrelere yazdırır.
ActiveCell.Offset(0, 1).Value = ComboBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox3.Value
ActiveCell.Offset(0, 4).Value = TextBox4.Value
ActiveCell.Offset(0, 5).Value = TextBox5.Value
ActiveCell.Offset(0, 6).Value = TextBox6.Value
ActiveCell.Offset(0, 7).Value = TextBox7.Value
ActiveCell.Offset(0, 8).Value = TextBox8.Value
ActiveCell.Offset(0, 9).Value = TextBox9.Value
ActiveCell.Offset(0, 10).Value = ComboBox3.Value
ActiveCell.Offset(0, 11).Value = TextBox13.Value * 1
ActiveCell.Offset(0, 12).Value = ComboBox4.Value
ActiveCell.Offset(0, 13).Value = TextBox10.Value
Set ge = Sheets("YVERI")
sat = [YVERI!b1:b65536].Find(ComboBox1).Row
ge.Range("n" & sat).Value = TextBox10 + Cells(sat, "n").Value