Listboxta işaretli olanı bulup işaretlemek.

[muratozmenler]

1 de bulunan butona bastığımızda sayfa isimlerini listelemektedir. Istediğim ise listelenen sayfayı seçtiğimizde yani işaretlendiğinde ana sayfasında ki b sütununda yazılı olan sayfa isminde bulucak ve c sütununa x koyacak.kısaca listede işaretlenen sayfayı ana sayfasında çıktı alındı diye işaretlettirmek

 

[Orion1]

Dosyanız ekte.
Butona basmanız lazım.

Private Sub CommandButton4_Click()
Sheets("ANA").Range("C2:C65536").ClearContents
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then Sheets("ANA").Cells(i + 2, "C") = "X"
    Next i
End Sub

 

[muratozmenler]

evren bey güzel çalışıyor fakat ana sayfasındaki sıra ile listboxtaki sayfa isimleri sırası farklı olduğu zaman aynı karşılığa denk geleni işaretliyor yani ana sayfasında örneğin sıralama sayfa isimleri 1-3-2 diyelim listede 1-2-3 biz 1 ve 3 işaretlediğimiz zaman listede sayfada 1-2 iaretlenmiş oluyor bunu nasıl çözebiliriz.

 

[Orion1]

evren bey güzel çalışıyor fakat ana sayfasındaki sıra ile listboxtaki sayfa isimleri sırası farklı olduğu zaman aynı karşılığa denk geleni işaretliyor yani ana sayfasında örneğin sıralama sayfa isimleri 1-3-2 diyelim listede 1-2-3 biz 1 ve 3 işaretlediğimiz zaman listede sayfada 1-2 iaretlenmiş oluyor bunu nasıl çözebiliriz.

Sayfaları sıralı yapsanız olmazmı.Şartmı karışık olması
Mecbursanız ona göre düzenlerim.Ama kod en hızlı böyle çalışır.Ötekindede hızlı çalışır.ama find ile buldurcan falan.Yavaşlığının farkına varmassaın ama mecbursan o şekildede yaparım.Mecbur değilsen böyle kalsın.

 

[muratozmenler]

evren bey her ikisindede sürekli değişim olmakta size zahmet olacak ama ....çünkü bende burada öğreniyor ve öğrendiklerimide paylaşıyorum tekrardan teşekkür ederim..

 

[Orion1]

evren bey güzel çalışıyor fakat ana sayfasındaki sıra ile listboxtaki sayfa isimleri sırası farklı olduğu zaman aynı karşılığa denk geleni işaretliyor yani ana sayfasında örneğin sıralama sayfa isimleri 1-3-2 diyelim listede 1-2-3 biz 1 ve 3 işaretlediğimiz zaman listede sayfada 1-2 iaretlenmiş oluyor bunu nasıl çözebiliriz.

Dosyanız ektedir.

Private Sub CommandButton4_Click()
Dim k As Range
Sheets("ANA").Range("C2:C65536").ClearContents
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Set k = Range("B2:B65536").Find(ListBox1.List(i, 0), , xlValues, xlWhole)
        If Not k Is Nothing Then k.Offset(0, 1).Value = "X"
    End If
Next i
End Sub

 

[muratozmenler]

yardımınız için çok teşekkür ederim evren bey

 

[Orion1]

yardımınız için çok teşekkür ederim evren bey

Rica ederim.