yatay arama ve ekleme

[seyyahmelih]

a2;z2 kadar değerleri istenen x değerini bulup a1;z1 sonuç ılarak yazsın

 

[Orion1]

Dosyanız ekte.
=KAYDIR(DOLAYLI(ADRES(2;KAÇINCI(E6;A2:Z2;0)));-1;0)

 

[seyyahmelih]

Ilginize teşekur ederim

 

[Orion1]

Ilginize teşekur ederim

Rica ederim.

 

[seyyahmelih]

Dosyanız ekte.
=KAYDIR(DOLAYLI(ADRES(2;KAÇINCI(E6;A2:Z2;0)));-1;0)

burada sıralama değişince arama yapmıyor
bunu nasıl düzeltiriz

 

[Orion1]

burada sıralama değişince arama yapmıyor
bunu nasıl düzeltiriz

Burada 2nci satır için sıralama yapıyor.
Siz kaçıncı satır için yapıyorsanız 2 ile gördüğünüz yerleri o satır numarasını yazınız.Bu durumda yazdığınız satırın bir üstündeki denk gelen veriyi alacaktır.

 

[seyyahmelih]

sayın Evren Gizlen bugun biraz ugraşınca istediğimi yaptım elinize sağlık teşekur

 

[suatbayhan]

Sayın Evren Gizlen hocamın affına sığınarak ben de bir dosya eklemek istiyorum.
Umarım sayın seyyahmelih'in istediği gibidir.
Saygılarımla.

 

[seyyahmelih]

sizede teşekur ederim suatbayhan kolay gelsin

 

[seyyahmelih]

yeşili bul

teşekurler

 

[Orion1]

yeşili bul ve ekle

Dosyanız ektedir.

Sub yesiller()
Dim i As Long, sat As Long, sut As Integer, k As Integer, sat2 As Long
sut = 22
Application.ScreenUpdating = False
With Sheets("Sayfa1")
    .Range("W5:BA65536").ClearContents
    sat = .Cells(65536, "A").End(xlUp).Row
    For k = 3 To 18
        sat2 = 5
        For i = 5 To sat
            If .Cells(i, k).Interior.Color = vbGreen Then
                .Cells(sat2, sut).Value = sat2 - 4
                .Cells(sat2, sut + 1).Value = .Cells(i, "A").Value
                sat2 = sat2 + 1
            End If
        Next i
        sut = sut + 2
    Next k
End With
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & _
vbLf & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[seyyahmelih]

Sayın Evren Gizlen gönderdiğiniz makroda istediğim sonucu elde ettim .
size teşekur ederim kolay gelsin

 

[Orion1]

Sayın Evren Gizlen gönderdiğiniz makroda istediğim sonucu elde ettim .
size teşekur ederim kolay gelsin

Rica ederim.
İyi çalışmalar.

 

[seyyahmelih]

gönderdiğiniz makroyu çalıştırdım teşekur ederim size iyi çalışmalar