comboboxa göre satırlara veri alma

[buket.cinar]

Merhaba Arkadaşlar.

Müşteri sayfasında bir butonum var. Bu butona basınca Müşteri sayfasını kopyalıyor ve kopya sayfası için ismi belirleyebiliyorum. Belirlediğim ismin müşteriler sayfasına a kolonundan başlayarak aşağıya doğru eklenmesini istiyorum.

Fatura sayfasında bi combo var verileri Müşteriler sayfasından çekiyor. Burda olmasını istediğim hangi müşteri ismi çekilirse ona ait sayfadaki bilgileri b koluna doldurması. Örnek çalışmayıda ekliyorum. İlginize şimdiden teşekkür ederim.

Burdan indirebilirsiniz.

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyiniz
"Müşteri" kod sayfasına

[SIZE="2"]Sub Kopyala()
Sheets("Müşteri").Visible = True
Sheets("Müşteri").Copy After:=Worksheets(Worksheets.Count)
10 NewPageName = InputBox("Kopyalamak Üzere Olduğunuz Sayfanın Adını Belirleyiniz...!!!")
For a = 1 To Sheets.Count
If UCase(Sheets(a).Name) = UCase(NewPageName) Then
MsgBox "Seçtiğiniz sayfa adı mevcuttur yeniden deneyin."
GoTo 10
End If
Next
ActiveWindow.ActiveSheet.Name = NewPageName
[COLOR="Red"]Set s2 = Sheets("Müşteriler")
rw = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(rw, "A") = NewPageName[/COLOR]
End Sub [/SIZE]

"ComboBox" un bulunduğu;"Fatura" kod sayfasına

[SIZE="2"]Private Sub ComboBox2_Change()
Range("B3:B14").Value = Sheets(ComboBox2.Value).Range("B3:B14").Value
End Sub [/SIZE]

 

[buket.cinar]

Merhaba
Aşağıdaki gibi deneyiniz
"Müşteri" kod sayfasına

[SIZE="2"]Sub Kopyala()
Sheets("Müşteri").Visible = True
Sheets("Müşteri").Copy After:=Worksheets(Worksheets.Count)
10 NewPageName = InputBox("Kopyalamak Üzere Olduğunuz Sayfanın Adını Belirleyiniz...!!!")
For a = 1 To Sheets.Count
If UCase(Sheets(a).Name) = UCase(NewPageName) Then
MsgBox "Seçtiğiniz sayfa adı mevcuttur yeniden deneyin."
GoTo 10
End If
Next
ActiveWindow.ActiveSheet.Name = NewPageName
[COLOR="Red"]Set s2 = Sheets("Müşteriler")
rw = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(rw, "A") = NewPageName[/COLOR]
End Sub [/SIZE]

"ComboBox" un bulunduğu;"Fatura" kod sayfasına

[SIZE="2"]Private Sub ComboBox2_Change()
Range("B3:B14").Value = Sheets(ComboBox2.Value).Range("B3:B14").Value
End Sub [/SIZE]

Verdiğiniz kodlar çalıştı teşekkür ederim. Peki verileri hücre bazında alsaydık nasıl yapmam gerekirdi. Gönderdiğim örnek düz bi çalışmaydı veriler farklı hücrelerde olacak. Örnek dosyayı güncelleyip tekrar ekliyorum.

 

[PLİNT]

Son dosyanızı indirme imkanım yok ama aşağıdaki köşeli parentez içlerindeki hücre adreslerini düzenleyebilirsiniz.

Private Sub ComboBox2_Change()

Set s1 = Sheets("Fatura")
Set s2 = Sheets(ComboBox2.Value)

s1.[[COLOR="Red"]B3[/COLOR]].Value = s2.[[COLOR="Red"]B3[/COLOR]].Value
s1.[B4].Value = s2.[B4].Value
s1.[B5].Value = s2.[B5].Value
s1.[B7].Value = s2.[B7].Value
s1.[B8].Value = s2.[B8].Value
s1.[B10].Value = s2.[B10].Value
s1.[B11].Value = s2.[B11].Value
s1.[B13].Value = s2.[B13].Value
s1.[B14].Value = s2.[B14].Value

End Sub

 

[buket.cinar]

Çok teşekkür ederim. İstediğim gibi oldu.