Formülle alınan tablonun makro ile alınması

[1Al2Ver]

Merhabalar,

Açılır Kutu'dan yapılan seçime göre, başka sayfadan formül ile veri alıyorum,

Alınan verileri makro ile almak istiyorum,

Gerekli makroyu rica ediyorum.

Teşekkür ederim.

 

[Mustafa MUTLU]

Denermisiniz !.

Sub Mustafa()
M_M1 = Sheets("İŞLEM").Range("C2")
M_M2 = Sheets("İŞLEM").Range("C3")
Sheets("İŞLEM").Range("A10:G29").ClearContents
MM = 10
For MSTF = 2 To Sheets("REÇETE").Cells(65536, "A").End(xlUp).Row
If Sheets("REÇETE").Cells(MSTF, "A") = M_M1 Then
If Sheets("REÇETE").Cells(MSTF, "B") = M_M2 Then
Sheets("İŞLEM").Cells(MM, "A") = MM - 9
Sheets("İŞLEM").Cells(MM, "B") = Sheets("REÇETE").Cells(MSTF, "C")
Sheets("İŞLEM").Cells(MM, "C") = Sheets("REÇETE").Cells(MSTF, "D")
Sheets("İŞLEM").Cells(MM, "D") = Sheets("REÇETE").Cells(MSTF, "E")
Sheets("İŞLEM").Cells(MM, "E") = Sheets("REÇETE").Cells(MSTF, "F")
Sheets("İŞLEM").Cells(MM, "F") = Sheets("REÇETE").Cells(MSTF, "G")
Sheets("İŞLEM").Cells(MM, "G") = Sheets("REÇETE").Cells(MSTF, "H")
MM = MM + 1
End If
End If
Next
MsgBox M_M1 & "  VE  " & M_M2 & "  Hazırlandı", vbInformation, "Mustafa MUTLU"
End Sub

 

[1Al2Ver]

Sayın Mustafa Mutlu, merhaba,

Sorun çözülmüştür, emeğiniz ve ilginiz için teşekkür ederim,

Saygılarımla.

 

[Mustafa MUTLU]

Sayın Mustafa Mutlu, merhaba,

Sorun çözülmüştür, emeğiniz ve ilginiz için teşekkür ederim,

Saygılarımla.

Rica Ederim.
Sorun çözüldü ise ne mutlu...