ComboBox

[taseraydin]

ComboBox tan belirlenen isme ait bilgilerin başka bir sayfadan alınarak Tablo oluşturma
Değerli arkadaşlar excel bilgimin çok kısıtlı olması fakat işimin gereğide bu tablolama işlemri şart
bu konuda üstad arkadaşlardan yardım bekliyorum
Saygılar, Sevgiler
Örnek dosyada istenilen bilgileri daha detaylı açıkladım

 

[Mahmut Kök]

Basit bir örnek hazırladım.

ekli dosyaya bakınız.

 

[mayvaz]

ne yapmışsınız anlayamadım ??

 

[taseraydin]

İşlevsel olarak istediğim gibi olmuş elinize sağlık
yanlız uygulamayı UserFormda değilde Sayfadaki ComboBoxtan uygulayabilirmiyiz ve ComboBox taki listedeki iisimler mükerrer olmaması mümkünmü
ilginize teşekür ederim..

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Dosyayaı istediğiniz şekilde günceleldim.İnceleyebilirsiniz.

Private Sub ComboBox1_Click()
Dim i As Long, sat As Long
Set s2 = Sheets("veriler")
Range("C9").Value = ComboBox1.Value
Range("B12:G65536").Clear
sat = 12
Application.ScreenUpdating = False
For i = 5 To s2.Cells(65536, "C").End(xlUp).Row
    If s2.Cells(i, "C").Value = ComboBox1.Value Then
        Cells(sat, "B").Value = s2.Cells(i, "D").Value
        Cells(sat, "C").Value = s2.Cells(i, "E").Value
        Cells(sat, "D").Value = s2.Cells(i, "F").Value
        Cells(sat, "E").Value = s2.Cells(i, "H").Value
        Cells(sat, "F").Value = s2.Cells(i, "I").Value
        Range("G" & sat).Formula = "=sum(E" & sat & ":F" & sat & ")"
        sat = sat + 1
    End If
Next i
Cells(sat, "B").Value = "T O P L A M...:"
Range("E" & sat).Formula = "=sum(E12:E" & sat - 1 & ")"
Range("F" & sat).Formula = "=sum(F12:F" & sat - 1 & ")"
Range("G" & sat).Formula = "=sum(G12:G" & sat - 1 & ")"
Range("B" & sat & ":G" & sat).Font.Bold = True
For x = 3 To 4
Range("B" & sat & ":G" & sat).Borders(x).LineStyle = 1
Next x
Application.ScreenUpdating = True
End Sub

 

[taseraydin]

mükemmel olmuş elinize sağlık alt satırda toplamları aldırmak dahada mükemmelleştirmiş,

toplam satırının ustüne ve altına çizgi çizdirip toplam satırınıda kalın yazdırabilirmiyiz bu mümkünmü ilginize güvenerekten biraz lükse kaçtık ama
şayet müsaitseniz, bu şekildede işimi görür.
Teşekürler,,

 

[Orion1]

mükemmel olmuş elinize sağlık alt satırda toplamları aldırmak dahada mükemmelleştirmiş,

toplam satırının ustüne ve altına çizgi çizdirip toplam satırınıda kalın yazdırabilirmiyiz bu mümkünmü ilginize güvenerekten biraz lükse kaçtık ama
şayet müsaitseniz, bu şekildede işimi görür.
Teşekürler,,

İstediğiniz değişiklikleri yaptım.
Önceki mesajımdan indirip deneyebilirsiniz.

 

[taseraydin]

TeŞekÜr

Çok GÜzel Oldu...
BaŞta Sİz Olmak Üzere Bu Formda EmeĞİ GeÇen,tÜm Üstadlara
Saygilar, Sevgİler

 

[Orion1]

Çok GÜzel Oldu...
BaŞta Sİz Olmak Üzere Bu Formda EmeĞİ GeÇen,tÜm Üstadlara
Saygilar, Sevgİler

Rica ederim.
İyi çalışmalar.