Snasui Excel Forum

Code: Select all

Sub Rectangle1_Click()()
   Dim Rec_Row As Integer
   Dim r As Range
    For Each r In Sheets("Sheet1").Range("c7:c11")
    If r <> "" Then
    Sheets("Sheet2").Select
    Range("A1").Select
    Rec_Row = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    Range("A" & Rec_Row).Value = Sheets("Sheet1").Range("C3").Value 'Name
    Range("B" & Rec_Row).Value = Sheets("Sheet1").Range("E3").Value 'Surname
    Range("C" & Rec_Row).Value = Sheets("Sheet1").Range("C4").Value 'Address
    Range("D" & Rec_Row).Value = Sheets("Sheet1").Range("C5").Value 'Phone No.
    Range("E" & Rec_Row).Value = r.Value 'Description
    Range("F" & Rec_Row).Value = r.Offset(, 1).Value 'Qty
    Range("G" & Rec_Row).Value = r.Offset(, 2).Value 'Price/Unit
    Range("H" & Rec_Row).Value = r.Offset(, 3).Value 'total Price
    Range("J" & Rec_Row).Value = Sheets("Sheet1").Range("G12").Value 'Date
    Range("K" & Rec_Row).Value = r.Offset(, 4).Value 'Remark
    End If
        Next r
        Range("I" & Rec_Row).Value = Sheets("Sheet1").Range("F12").Value 'total Amount Price
    Sheets("Sheet1").Select
    MsgBox ("Save Done!!!")
End Sub

Code: Select all

Sub Rectangle1_Click()
   Dim Rec_Row As Integer
   Dim r As Range
    For Each r In Sheets("Sheet1").Range("c7:c11")
    Sheets("Sheet2").Select
    Range("A1").Select
    Rec_Row = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    Range("A" & Rec_Row).Value = Sheets("Sheet1").Range("C3").Value 'Name
    Range("B" & Rec_Row).Value = Sheets("Sheet1").Range("E3").Value 'Surname
    Range("C" & Rec_Row).Value = Sheets("Sheet1").Range("C4").Value 'Address
    Range("D" & Rec_Row).Value = Sheets("Sheet1").Range("C5").Value 'Phone No.
    Range("E" & Rec_Row).Value = r.Value 'Description
    Range("F" & Rec_Row).Value = r.Offset(, 1).Value 'Qty
    Range("G" & Rec_Row).Value = r.Offset(, 2).Value 'Price/Unit
    Range("H" & Rec_Row).Value = r.Offset(, 3).Value 'total Price
    Range("I" & Rec_Row).Value = Sheets("Sheet1").Range("F12").Value 'total Amount Price
    Range("J" & Rec_Row).Value = Sheets("Sheet1").Range("G12").Value 'Date
    Range("K" & Rec_Row).Value = r.Offset(, 4).Value 'Remark
    Next r
    Sheets("Sheet1").Select
    MsgBox ("Save Done!!!")
End Sub

Code: Select all

Sub Rectangle1_Click()
   Dim Rec_Row As Integer
   Dim r As Range
     For Each r In Sheets("Sheet1").Range("c7:c11")
    Sheets("Sheet2").Select
    Range("A1").Select
    Rec_Row = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    Range("A" & Rec_Row).Value = Sheets("Sheet1").Range("C3").Value 'Name
    Range("B" & Rec_Row).Value = Sheets("Sheet1").Range("E3").Value 'Surname
    Range("C" & Rec_Row).Value = Sheets("Sheet1").Range("C4").Value 'Address
    Range("D" & Rec_Row).Value = Sheets("Sheet1").Range("C5").Value 'Phone No.
    Range("E" & Rec_Row).Value = r.Value 'Description
    Range("F" & Rec_Row).Value = r.Offset(, 1).Value 'Qty
    Range("G" & Rec_Row).Value = r.Offset(, 2).Value 'Price/Unit
    Range("H" & Rec_Row).Value = r.Offset(, 3).Value 'total Price
    Range("J" & Rec_Row).Value = Sheets("Sheet1").Range("G12").Value 'Date
    'Range("J" & Rec_Row).Value = Sheets("Sheet1").Range("P12").Value 'Grand Total price
    Next r
    Sheets("Sheet1").Select
    MsgBox ("Save Done!!!")
End Sub