sütuna göre değiştirme

[turkanet]

merhaba,

sayfa2 de b2 hücresi; sayfa1'de hangi sütundaysa, sayfa2 c sütunundaki "mmm" değerini aşağıdaki kriterlere göre değiştirecek makroya ihtiyacım var;

a sütunu için: a listesi
b sütunu için: b listesi gibi

şimdiden tşk ederim

 

[usubaykan]

Merhaba,

Dosyanızı inceledim fakat Sayfa2 de C sütunundaki "mmm" değerini göremedim. İstediğiniz makro Hangi değeri neye göre değiştirecek?

 

[turkanet]

merhaba soruyu şöyle güncelliyorum;

sayfa2 de b2 hücresi; sayfa1'de hangi sütundaysa, sayfa2 a sütununda "scm" satırının c sütunundaki karşılığına aşağıdaki verileri girsin; eğer sayfa2 a sütununda "scm" yoksa hiçbirşey yapmasın;

a sütunu için: a listesi
b sütunu için: b listesi gibi

şimdiden tşk

 

[Evolver]

slm
aşağıdaki kodları deneyin.

Sub listeeee()
Dim a As Range
Dim bul As Range
Dim adr As String
For Each a In Sheets(2).Range("B2:B" & Sheets(2).Range("B65536").End(xlUp).Row)
    If a = "" Then GoTo z:
    Set bul = Sheets(1).Cells.Find(a, , xlValues, xlWhole)
    If Not bul Is Nothing Then
        adr = Left(bul.Address(1, 0), WorksheetFunction.Find("$", bul.Address(1, 0)) - 1)
        a.Offset(0, 1).Value = adr & " Listesi"
    Else
        a.Offset(0, 1).Value = "Yok"
    End If
z:
Next a
End Sub

 

[turkanet]

sn. evolver, birkaç düzeltmeye ihtiyaç var;

sadece sayfa2 a sütununda "scm" olan satırlara uygulaması lazım

şimdiden tşk

 

[turkanet]

cevabınızı rica ederim