Combo

[F650GS]

Merhabalar,

Ekteki dosyada farklı şirketlerin bilgilerini tek bir tuşa basarak konsolide olarak karşıma getirmek istiyorum. Bunu yapmamda yardımcı olursanız memnun olurum.

Saygılarımla,

 

[İhsan Tank]

merhaba
versiyonunuz 2003 yüklediğiniz dosya 2007 nasıl oluyor_?
200 formatında örnek dosya ekleyiniz

 

[F650GS]

combo

97-2003 versiyonunu yüklüyorum.yardımlarınız için teşekkürler

 

[Orion1]

Dosyanız ektedir.

Sub cmb_liste()
Dim sh As Worksheet
ComboBox1.Clear
For Each sh In Worksheets
    If sh.Name <> ActiveSheet.Name Then
        ComboBox1.AddItem sh.Name
    End If
Next
End Sub

Private Sub ComboBox1_Change()
Dim sh As Worksheet
On Error Resume Next
Range("B1:B12").ClearContents
For Each sh In Worksheets
    If sh.Name = ComboBox1.Text Then
        Range("B1:B12").Value = sh.Range("B1:B12").Value
        Exit For
    End If
Next
End Sub

Private Sub Worksheet_Activate()
Call cmb_liste
End Sub

 

[F650GS]

teşekkürler. bunun başka bir yolu yokmu acaba ? ekte başka bir dosya göreceksiniz forum da bulmuştum ama ondan faydalanamadım. yukardaki yazılımı yapmayı bilmeyenler için farklı bir metodu öğrenmek isterim açıkçası...
teşekkürler.

 

[Orion1]

Değişik çözümlerlede olur.
Formlardaki combobox lada olur,veri doğrulama/Liste ilede olur.
Ama bunlar ile Comboxta listelediğim isimleri bir sayfanın bir sütunana eklemelisiniz.Başka sayfa eklemezseniz buna gerek yok ama yeni sayfalar ekleneceği göz önüne alınırsa bir sütubnda bu adları yazmalısınız.Veya yine makroyu devreye sokarak makro ile otomatik bir sütunda listeleme yapıp comboboxlara oradan alabilirsiiz.Ama o zaman benim yaptığını kullanın .Eğer her seferinde ben yeni sayfa eklediğimdede o sayfa ismini bir sütuna manuel olarak yazarım derseniz formlardaki comboxı (bana yolladığınız örnek dosyadakini) kullanıp formüler vasıtası ile o sayfalardaki b sütunundaki değerleri aldırabilirim.
Karar size kalmış.

 

[F650GS]

basitten başlamak daha iyi diye düşünerek makro yazmadan yapmayı önce tercih ederim.

teşekkürler

 

[Merhum İdris SERDAR]

Merhabalar,

Ekteki dosyada farklı şirketlerin bilgilerini tek bir tuşa basarak konsolide olarak karşıma getirmek istiyorum. Bunu yapmamda yardımcı olursanız memnun olurum.

Saygılarımla,

.

Aşağıdaki konularda yer alan örnek dosyaları inceleyin.


ÖZET TABLOLAR (PİVOT TABLE)


Tabloların Konsolide edilmesi


3B - 3D formülleri



.

 

[Orion1]

basitten başlamak daha iyi diye düşünerek makro yazmadan yapmayı önce tercih ederim.

teşekkürler

Dosyanız ektedir.
Kolay bir şey diye bir şey yoktur.
Bir an önce vba öğrenmenizi tavsiye ederim.
Çok büyük veri yığınlarına formüller çalışmayı aşırı derecede yavaşlatıyorlar.