İstenen değerler bulunduktan sonra ilgili yerlere dökülmesi...

[manly]

Ekte göndermiş olduğum dosyada Sayfa2 deki Q2 hücresine girilen değer Sayfa1 deki A sütünunda aranacak... Gerekli değer bulunduktan sonra o satırdaki değerler Sayfa2 deki R sütunundaki sarı renkli yerlere dökülecek... Daha sonra dökülen değerler arasında sıfır (0) varsa çıktı alırken o satır görünmez olacak... Bunu makro olarak yapabilir miyiz?

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet, sat As Long, k As Range
If Intersect(Target, [Q2]) Is Nothing Then Exit Sub
Range("R7:R" & Rows.Count).ClearContents
Set sh = Sheets("Sayfa1")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Set k = sh.Range("A2:A" & sat).Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Range("R7").Resize(15, 1) = Application.Transpose(sh.Range("B" & k.Row & ":P" & k.Row).Value)
End If
For i = 7 To 21
    Rows(i).Hidden = False
    If Cells(i, "R").Value <> "" And Cells(i, "R").Value = 0 Then
        Rows(i).Hidden = True
    End If
Next i
End Sub

 

[manly]

Hocam değerlerin (0) sıfır olduğu satırlar otomatik gizlenebilirmi?

 

[Orion1]

Hocam değerlerin (0) sıfır olduğu satırlar otomatik gizlenebilirmi?

gerekli düzenlemeyi yaptım.
2 nolu mesajdan dosyayı indirebilirisiniz.

 

[manly]

Hocam ellerinize sağlık... Çok teşekkür ederim...