hücreye birden fazla değer girme

[gelen gecer mdmx]

bir hücreye seçilen iki değeride girmesini istiyorum. önce a seçildiyse ardından b seçildiyse a yı o hücreden silmeden altına(aynı hücrede) b yi yazsın istiyorum. örnek daha açık.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
If ComboBox1.Value = "a" Then
Range("a1").Value = Range("A1").Value & "-" & "a"
End If

If ComboBox1.Value = "b" Then
Range("a1").Value = Range("A1").Value & "-" & "b"
End If




Unload UserForm1
End Sub

 

[gelen gecer mdmx]

hocam ikiden fazla seçenek var ama bende yaklaşık 100 tanesine tek tek yazamam.

 

[Orion1]

hocam ikiden fazla seçenek var ama bende yaklaşık 100 tanesine tek tek yazamam.

Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value & "-" & ComboBox1.Value



Unload UserForm1
End Sub

 

[gelen gecer mdmx]

a1 den f11 e kadar bu böyle ise hepsini tek tek yazacakmıyım

 

[Orion1]

a1 den f11 e kadar bu böyle ise hepsini tek tek yazacakmıyım

Private Sub CommandButton1_Click()
Dim hcr As Range
For Each hcr In Range("A1:F11")
    hcr.Value = hcr.Value & "-" & ComboBox1.Value
Next
Unload UserForm1
End Sub

 

[aliihsanuckan]

hücrede toplama işlemi

Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value & "-" & ComboBox1.Value
End Sub

bu kod ile aynı hücreye birden çok sayı girebiliyorum.
ama bu sayıların toplam olarak görünmesi gerekiyor. yardımcı olabilirmisiniz...

hücre içerisinde ( 3+56+22+1) gibi gözüküyor bunun toplam yani (82) olarak görünmesini istiyorum..

 

[Emir Hüseyin Çoban]

. . .

Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value + ComboBox1.Value
End Sub

. . .

 

[aliihsanuckan]

TEŞEKKÜRLER Hüseyin ÇOBAN KARDEŞ,

BEN DAHA KOLAY BİR YOL BULDUM..

ARAÇLAR-SEÇENEKLER-HESAPLAMA menüsünü aç. Yineleme seçeneğini işaretle. En fazla yineleme kutucuğuna 1 değerini yazıp tamam deyin.

Daha sonra B1 hücresine =A1+B1 formülünü yazın. A1 hücresine değer girip deneyin.


YİNEDE İLGİN İÇİN ÇOK TEŞŞEKKÜR EDERİM..