Snasui Excel Forum

Code: Select all

Dim input1 As Range, iRow As Long
Dim tempRow As Long, cell As Range
  Dim nRange As Range, aCell As Range, bCell As Range
Set input1 = Worksheets(1).Range("b1") 'ªèͧ·Õè¨Ð¡ÃÍ¡¤ÓãËé¤é¹ËÒ
Worksheets(1).Range("a3").Resize(1000, 10).ClearContents 


For Each cell In Worksheets(4).UsedRange.Offset(1, 0)
If cell.Value = input1.Value Then 
Worksheets(4).Cells(cell.Row, 1).Resize(1, 7).Copy
With Worksheets(1)
Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 
End With
End If
Next cell

Code: Select all

Sub savedata1()
Dim check1 As Long
Dim i As Integer
Dim z1 As Long

check1 = Worksheets(2).Range("a4").End(xlDown).Row


For i = endrow1 To check1
Worksheets(6).Cells(z1 + 1, 1).Value = Worksheets(2).Cells(i, 1).Value
Worksheets(6).Cells(z1 + 1, 2).Value = Worksheets(2).Cells(i, 2).Value
Worksheets(6).Cells(z1 + 1, 3).Value = Worksheets(2).Cells(i, 3).Value
Worksheets(6).Cells(z1 + 1, 4).Value = Worksheets(2).Cells(i, 4).Value
Worksheets(6).Cells(z1 + 1, 5).Value = Worksheets(2).Cells(i, 5).Value
Next i
End Sub

Code: Select all

Sub Button1_คลิก()
Dim z1 As Long
Dim endrow1 As Long
Dim input1 As Range, irow As Long
Dim tempRow As Long, cell As Range
  Dim nRange As Range, aCell As Range, bCell As Range
Set input1 = Worksheets(2).Range("b1") 
Worksheets(2).Range("a5").Resize(1000, 10).ClearContents 



For Each cell In Worksheets(5).UsedRange.Offset(1, 0)
If cell.Value = input1.Value Then
Worksheets(5).Cells(cell.Row, 1).Resize(1, 5).Copy
With Worksheets(2)
Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End With
End If
Next cell

Worksheets(2).Range("a1").End(xlDown).Offset(1, 0).Select
endrow1 = Selection.Row
endrow1 = endrow1 + 1
z1 = Worksheets(6).End(xlDown).Select.Row
End Sub

Code: Select all

Sub save1()
    Dim lastRow As Long, sourceRange As Range
    With Sheets("Sheet3")
        lastRow = .ListObjects("Table1").ListRows.Count
        Set sourceRange = .ListObjects("Table1").ListRows(lastRow).Range
    End With
    With Sheets("Sheet4")
        .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 5).Value = _
            sourceRange.Value
    End With
End Sub

Code: Select all

Sub tttt()
  Dim sourceRange As Range
    With Sheets("Sheet3")
        Set sourceRange = .Range("a" & .Rows.Count).End(xlUp).Resize(1, 5)
    End With
    With Sheets("profile")
        .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 5).Value = _
            sourceRange.Value
    End With
End Sub

Code: Select all

Sub savedata1()
Dim check1 As Long
Dim i As Integer
Dim z1 As Long

check1 = Worksheets(2).Range("a4").End(xlDown).Row
z1 = Worksheets(6).End(xlDown).Select.Row

End Sub