Sayfa değişince ComboBoxdaki veriler de değişsin

[girdap]

Sayın Form Kullanıcıları Merhaba

UserForm açılınca, ComboBox1'e "D" sütünu aktarılsın, ancak Sayfa1 de iken "D" AKTARILIRKEN Sayfa2'ye geçilince Sayfa2 nin "D" sütunu ComboBox'a aktarılmış olması için nasıl kod yazmak gerekecektir?
Örnek dosya ektedir.
Saygılarımla

 

[hamitcan]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sayfa1" Or Sh.Name = "Sayfa2" Then
    Unload UserForm1
    UserForm1.Show 0
Else
    Unload UserForm1
End If
End Sub

Yukarıdaki kodu sayfanın ThisWorkbook kısmına, aşağıdakini de Userform1 içine yerleştirerek dener misiniz?

Private Sub UserForm_Activate()
ComboBox1.RowSource = "d2:d500"
End Sub

 

[girdap]

Sayın Hamitcan Merhaba.

Elinize sağlık. Süper olmuş. Emeğinize ve ayırdığınız zaman için çok çok teşekkürler.


Saygılarımla

 

[cihangirkara]

baba güzel olmuşta sayfa1 D sütünunda aynı olanları sadece 1 defa nasıl gösteririz

selalar

 

[Orion1]

baba güzel olmuşta sayfa1 D sütünunda aynı olanları sadece 1 defa nasıl gösteririz

selalar

Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
For i = 2 To Cells(65536, "D").End(xlUp).Row
    If WorksheetFunction.CountIf(Range(Cells(2, "D"), Cells(i, "D")), Cells(i, "D").Value) = 1 Then
        ComboBox1.AddItem Cells(i, "D").Value
    End If
Next i
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

 

[girdap]

Sayın Orion2 selam.

Son düzenlenen dosyada aktarma işlemi olmuyor. Belki bir buton takviyesi ile comboboxda seçilen veriye ait satırları sayfa 2 ye yukarıdan aşağıya, son boş satır gözetilerek sıralanarak aktarmak mümkün olabilir. Ancak Sayfa1 deki ilgili veri silinmiş olması şartı vardı. Bunu sağlayacak kod değişikliği nedir? (İlk sayın Hamitcan'nın tıklayarak aktarımını bu şekilde gerçekleştirmek istersek)

Saygılarımla

 

[Orion1]

Sayın Orion2 selam.

Son düzenlenen dosyada aktarma işlemi olmuyor. Belki bir buton takviyesi ile comboboxda seçilen veriye ait satırları sayfa 2 ye yukarıdan aşağıya, son boş satır gözetilerek sıralanarak aktarmak mümkün olabilir. Ancak Sayfa1 deki ilgili veri silinmiş olması şartı vardı. Bunu sağlayacak kod değişikliği nedir? (İlk sayın Hamitcan'nın tıklayarak aktarımını bu şekilde gerçekleştirmek istersek)

Saygılarımla

Selam Niye veri aktarımı olmuyor.
Ben sadece Combobox'ta tekrarsız listeleme yapan kodları ekledim.
Dosyadan herhangi bir kod silmedim veya değiştirmedim.
Ha yeni bir istekle geliyorsanız o durum başka .!Hallederiz.

 

[girdap]

Sayın Orion2 Merhaba.

Aslında istediğim oydu. Ben anlatamadım. Kusura bakmayın. Aslında istenen oydu. Bu konuda kodlar nasıl olmalı?

Saygılarımla

 

[Orion1]

Sayın Orion2 Merhaba.

Aslında istediğim oydu. Ben anlatamadım. Kusura bakmayın. Aslında istenen oydu. Bu konuda kodlar nasıl olmalı?

Saygılarımla

Bu dediklerinizden bir şey anlamadım.Ne yapılacaksa net bir şekilde yazınız veya dosya üzerinde açıklamalaı olarak yazınız ve dosyayı ekleyiniz.