aranan degerlerin satirlarini bulmak

[goklerhakimi]

Merhaba arkadaşlar,
bayağı uğraştım ama sonunda yardım istemeye karar verdim. derdim aradığım bir değeri bulunca, bulunan satirin degerlerine ihtiyacim var. ekteki dosyada ornek hazırlamaya calistim. A kolonunda tum tablo var, C kolonunda ise eşsiz, unique değerler var. C kolonunda aratınca A kolonundaki degerin bulundugu satiri sari ile işaretlediğim bolgeye yerleştirecek, kaç tane bulursa artık.

 

[alpayhs]

arkadaşlar bi konuda yardımınızı bekliyorum tekstil firmasında çalışmaktayım ile ilgili günlük satışlarla ilgili bi maliyet oluşturmam isteniliyor bununla ilgili lks muhasebe programından veri alıp bir maliyet programı oluşturmak istiyorum veri almasına alıyorum ama herhangi bildiğim bir excel programı yok bununla ilgili yardımcı olmanızı istiyorum lütfen acil şimdiden tşk ediyorum
saygılar
iyi çalışmalar

 

[Orion1]

Merhaba.
Kaçıncı satırlarda olduğunu buluyor.

Sub satir_bul()
    Sheets("Sayfa1").Select
    Application.ScreenUpdating = False
    Range("E2:IV65536").ClearContents
        For i = 2 To Cells(65536, "D").End(xlUp).Row
            For s = 2 To Cells(65536, "A").End(xlUp).Row
                If Cells(i, "D").Value = Cells(s, "A").Value Then
                    sonsut = Cells(i, 256).End(xlToLeft).Column
                    Cells(i, sonsut + 1).Value = Cells(s, "A").Row
                End If
            Next s
        Next i
    Application.ScreenUpdating = True
    MsgBox "İŞLEM TAMAMLANDI..!!"
End Sub

 

[goklerhakimi]

Sayın Orion2, yazdığınız kod için çok teşekkür ederim. algoritması çook hoşuma gitti ve bayağı işime yarayacak.

 

[Orion1]

Sayın Orion2, yazdığınız kod için çok teşekkür ederim. algoritması çook hoşuma gitti ve bayağı işime yarayacak.

Rica ederim.
İyi çalışmalar.