Comboboxta seçilen sayfanın a1+a2+a3 hücrelerini birleştir

[enes2000eren]

slm.arkadaşlar comboboxta seçim yapınca(sayfalar sıralanıyor) sayfa3 vb geliyor.anamenü sayfasındaki a1 hücresine bu seçilen (herhangi bir sayfanın)sayfanın a1+a2+a3 hücrelerini birleştirererk yazdırmak istiyorum.fonksiyon olmuyor.çünkü sayfalar sabit değil.makro istiyorum eğer mümkünse.tşk.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Private Sub UserForm_Initialize()
For Each say In Worksheets
If say.Name <> "Sheet1" Then ComboBox1.AddItem say.Name
Next
End Sub
 
Private Sub ComboBox1_Change()
[a1] = WorksheetFunction.Sum(Sheets(ComboBox1.Value).[a1:a3])
End Sub

 

[enes2000eren]

SAYIN RİPEK UĞRAŞLARINIZ İÇİN TŞK.bir sorun var belki ben yanlış anlatmış olabilirim. (a1&" "&a2&" "&a3) a1 a2 a3 hücrelerini birer boşluk bırakarak birleştirebilir miyiz?tşk.

 

[Recep İpek]

Pardon sorunuzu ben yanlış anlamışım.Birleştirmeyi toplamak olarak algılamışım.

O zaman;

Private Sub ComboBox1_Change()
Set s1 = Sheets(ComboBox1.Value)
[a1] = s1.[a1] & " " & s1.[a2] & " " & s1.[a3]
Set s1 = Nothing
End Sub

olarak deneyin.