Çoklu seçim

[merakli_72]

mrb,
Açıklama dosya içinde.
Teşekkürler

 

[uzmanamele]

merhaba

kod ile tabiiki yapılabilir ama pratik bir yöntem önereyim.
sol tarafa bir sütun ve tablonuza başlık ekleyin.
eklediğiniz sütuna seçilecek satırlar için mesela 1 yazın ve sütunu filtreleyin.
filtrelenmiş tabloyu seçip gerekiyorsa başka yere kopyaladığınızda işlem tamamlanmış olur.

 

[merakli_72]

mrb,
benimde son çare olarak düşündüğüm buna benzer birşey
sayfanın kopyasını almak
bu kopya üzerinde sarı renkli hücrelerin bulunduğu satırları sildirmek
geri kalan bizim istediğimiz oluyor
ama öncelikli olarak bu hücreleri seçtirmenin bir yolunu bulabilirsem boyle yapmayı düşünüyorum
öneriniz için teşekkürler

 

[zafer]

Merhaba


Aşağıdaki kodları kod sayfanıza yapıştırıp çalıştırınız

Sub sec()
    
son = Cells(65536, 1).End(xlUp).Row

For i = 1 To son

If Cells(i, 1).Interior.ColorIndex <> 6 Then
d = Cells(i, 1).Address
g = d & "," & g
alan = Mid(g, 1, Len(g) - 1)
Range(alan).Select
End If
Next
   
End Sub

 

[merakli_72]

teşekkür ederim zafer bey,
istediğim buydu

 

[Korhan Ayhan]

Selamlar,

Sn. Zafer beyin önerdiği kod örnek dosyanıza göre sonuç üretmektedir. Fakat satır sayısını arttırdığınızda hata ile sonuçlanacaktır. Bu problemi aşmak için UNION komutunu kullanmalısınız.

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub ÇOKLU_HÜCRE_SEÇ()
    Dim X As Long, ALAN As Range
 
    For X = 1 To Range("A65536").End(3).Row
        If Cells(X, 1).Interior.ColorIndex <> 6 Then
            If ALAN Is Nothing Then
                Set ALAN = Range(Cells(X, 1).Address)
            Else
                Set ALAN = Union(ALAN, Range(Cells(X, 1).Address))
            End If
        End If
    Next
 
    ALAN.Select
 
    Set ALAN = Nothing
End Sub

 

[merakli_72]

mrb,
korhan bey,
evet seçilen hücre sayısı arttımı hata veriyor, sanırım 255 karakter sınırı var
bende hücre adreslerini
Cells(i, 1).Address(RowAbsolute:=False, _
ColumnAbsolute:=False)
şeklinde almıştım $ işaretleri olmadığı için bu şekilde daha çok hücre seçebilmiştim
ama bundada bir yerde tıkanacaktık elbette
çözümünüz için teşekkür ederim