İçinde değer olan satırın sütun başlangıcından bilgi alma

[yst10]

Selam arkadaşlar,
Garip bir konu farkındayım. Satır içinde değer varsa, önce onu, sonra o satırın kesiştiği kolonun 2. ve 1. satırındaki bilgileri farklı bir sayfada altalta yazdırmak gibi bir sorunum var.
Örnek dosya ekte, umarım açıklamalar yeterlidir.
Saygılar, iyi geceler.
Yavuz Tümer

 

[yst10]

Bir fikri olan kimse yok mu arkadaşlar, topla.çarpım ile bir satırın bilgisi alınıyor ama bir üst satır için o yöntemle yapamadım. Yardımlarınızı rica ediyorum.

 

[Orion1]

Bir fikri olan kimse yok mu arkadaşlar, topla.çarpım ile bir satırın bilgisi alınıyor ama bir üst satır için o yöntemle yapamadım. Yardımlarınızı rica ediyorum.

Makro ile çözümü
Aşağıdaki ekli dosyayı inceleyiniz.

Sub yazdır()
Dim s2 As Worksheet, i As Long, k As Integer
Sheets("RECETE").Select
Set s2 = Sheets("Sayfa3")
Application.ScreenUpdating = False
s2.Range("A2:E65536").ClearContents
sat = 2
For i = 3 To Cells(65536, "A").End(xlUp).Row
    For k = 3 To Cells(i, 256).End(xlToLeft).Column
        If Cells(i, k).Value <> "" Then
            s2.Cells(sat, "A").Value = Cells(i, "A").Value
            s2.Cells(sat, "B").Value = Cells(i, "B").Value
            s2.Cells(sat, "C").Value = Cells(i, k).Value
            s2.Cells(sat, "D").Value = Cells(2, k).Value
            s2.Cells(sat, "E").Value = Cells(1, k).Value
            sat = sat + 1
        End If
    Next k
Next i
Application.ScreenUpdating = True
s2.Select
Set s2 = Nothing
MsgBox "İşlem tamamlandı"
End Sub

 

[yst10]

Evren bey, çok teşekkür ederim.
Zaten istediğim makro çözümü idi.
Ellerinize, bilginize, emeğinize sağlık.
Ayrıca zaman ayırıp, sorunumu çözdüğünüz içinde sağolun.
İyi günler, iyi çalışmalar dilerim.

 

[Orion1]

Evren bey, çok teşekkür ederim.
Zaten istediğim makro çözümü idi.
Ellerinize, bilginize, emeğinize sağlık.
Ayrıca zaman ayırıp, sorunumu çözdüğünüz içinde sağolun.
İyi günler, iyi çalışmalar dilerim.

Rica ederim.
İyi çalışmlar.