Excel'de değer aralığı seçme ( Metin )

[salih1986]

Arkadaşlar kolay gelsin bu konularda yeni olduğum için sizden fikir almak istedim ;


Excel'de değer aralığı seçme ( Metin )

 

[ÖmerBey]

Örnek dosya ekleyip örnek dosya üzerinde almak istediğiniz sonucu gösterirseniz daha hızlı ve daha doğru yardım alırsınız. Bu şekilde sorunuz net anlaşılmıyor. Daha doğrusu eksik kalan noktalar var.
Örnek dosyanızı dosya paylaşım sitelerine ekleyip link vererek paylaşabilirsiniz.

 

[salih1986]

Haklısınız istediğim sonuçu ekledim şimdiden teşekkür ederim.

 

[salih1986]

Yada Element: Circular ile başlayıp Exit Grade: değer aralığını seçmek istiyorum. O da işimi görür.

 

[ÖmerBey]

Sheet1'de zaten filtreleme yapmışsınız. A sütununda Element:Circular değerini filtreden seçin.
Daha sonra verilerin olduğu alanı seçip kopyalayıp diğer sayfaya yapıştırınız.
En fazla 30 sn sürer.
Eğer bu işlemi makro ile yapmak isterseniz aşağıdaki kodları kullanabilirsiniz.

Sub KOD()
    Sheets("Sheet1").Select
    Sheets("Sheet1").Range("$A$1:$F$65500").AutoFilter Field:=1, Criteria1:= _
        "Element:Circular"
    Range(Range("A1").Offset(1, 0), Cells(Range("A65500").End(3).Row, "F")).Copy
    Sheets("TM27 Element.Circular").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[salih1986]

Yok işte olay o değil haklısınız filtre yaptım.

 

[ÖmerBey]

Ham verinize göre aşağıdaki kodu deneyiniz.

Sub KOD()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For a = 1 To Range("A65500").End(3).Row
    If s1.Cells(a, "B") = "Circular" Then
        son = s2.Range("A65500").End(3).Row + 1
        Range(s1.Cells(a, "A"), s1.Cells(a, "A").End(4).Offset(0, 4)).Copy s2.Cells(son, "B")
        sonson = s2.Range("B65500").End(3).Row
        s2.Range("A" & son & ":A" & sonson) = s1.Cells(a, "A") & s1.Cells(a, "B")
    End If
Next
End Sub

 

[salih1986]

İşime yaradı çok teşekkür ederim .

 

[salih1986]

İlginiz için çok teşekkür ederim .