ComboBox ve TextBox verilerini aktarma

[baba58]

ComboBox ve TextBox kutularına yazmış olduğum verileri sayfa 1 deki oluşturduğum çizelgedeki herhangi bir (Örnek15)'e atmasını istiyorum.Ama devamlı girdiğinden dolayı ikinci bir kez girdiğimde ise öncekinin üstüne toplamasını istiyom.
Private Sub CommandButton15_Click()
Sheets("ÖL.YAR.").Select
For i = 3 To 200
If ComboBox3.Value = Sayfa7.Cells(i, 4).Value Then
UserForm1.ComboBox4.Value = Sayfa7.Cells(i, 5).Value
UserForm1.Show
End If
Next i
Sheets("ANA").Select
End Sub
Bu formülü yazdım ama olmadı

 

[Orion1]

Böyle bir şey anlaşılmıyor.
Bir tane örnek dosya ekleyiniz ve üzerinde gerekli açıklamaları yazınız..!!

 

[baba58]

Örnek Çizelge

kutucuklara yazdığım rakamları sayfadaki yerine atmasını istiyorum.

 

[Orion1]

Dosyayı sildim.8 Numaralı mesaja koydum.

Benim koyduğum aktar butonuna basınız.
Maddi hasar miktarları girilecektir.
Ekli dosyayı inceleyiniz.
Dosya 8 numaralı mesajda.

Private Sub CommandButton16_Click()
Set s1 = Sheets("ÖL.YAR.")
s1.Range("AN7").Value = TextBox40.Value * 1
s1.Range("AN8").Value = TextBox41.Value * 1
s1.Range("AN9").Value = TextBox42.Value * 1
MsgBox "Aktarma Tamamlandı.."
Set s1 = Nothing
End Sub

 

[baba58]

formülü uyguladım ama olmadı

 

[Orion1]

Dosyayı eklemeyi unutmuşum.
Önceki mesajımdan dosyayı indirebilirsiniz.

 

[baba58]

sizin sayfayı açamadım

 

[Orion1]

Dosyayı 10 nolu mesaja taşıdım.

Şimdi eklediğim dosyayı inceleyiniz.
Dosya 10 nolu mesajda.

 

[baba58]

dosyada iki hane var
birinci sıra da yerleşim yeri
ikinci sıra ise yerleşim dışı bunların bağlantısı
ComboBox9 da ve burdan seçtiğimde kutukcukları işaretlediğimde sadece o sütuna dağıtmasını istiyorum.
ComboBox9 daki hangisini seçersem o olması lazım
Yerleşim yerini seçtiysem o sıraya
yerleşim dışını seçtiysen o sıraya dağıtsın

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton16_Click()
Set s1 = Sheets("ÖL.YAR.")
s1.Range("AN7").Value = ""
s1.Range("AN8").Value = ""
If ComboBox9.Value = "" Then Exit Sub
If ComboBox9.Value = "YERLEŞİM YERİ" Then
    s1.Range("AN7").Value = (TextBox40.Value * 1) + (TextBox41.Value * 1) _
    + (TextBox42.Value * 1) + (TextBox43.Value * 1)
    Else
    s1.Range("AN8").Value = (TextBox40.Value * 1) + (TextBox41.Value * 1) _
    + (TextBox42.Value * 1) + (TextBox43.Value * 1)
End If
MsgBox "Aktarma Tamamlandı.."
Set s1 = Nothing
End Sub