- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Sub TBR0701CreatDataFromTable()
Dim WS As Worksheet
Set WS = Sheets("10.KKSMaterial")
'Xac dinh dong cuoi de ghi du lieu
Dim WriteEndRow As Integer
WriteEndRow = WS.Cells(Rows.Count, 3).End(xlUp).Row + 1
'Xac dinh dong dau tien va dong cuoi cung cua bang du lieu
Dim ReadTopRow As Integer
Dim ReadEndRow As Integer
ReadTopRow = 3
ReadEndRow = WS.Cells(Rows.Count, 11).End(xlUp).Row
'Xac dinh cot dau tien va cot cuoi cung cua bang du lieu
Dim ReadTopColumn As Integer
Dim ReadEndRColumn As Integer
ReadTopColumn = 12
ReadEndColumn = WS.Cells(1, Columns.Count).End(xlToLeft).Column
'Ghi du lieu
Dim YuuSenDo As String
Dim SizeType As String
Dim MatSize As String
Dim Mat As String
Dim MatType As String
Dim Note1 As String
Dim Note2 As String
MatType = WS.Range("J1").Value
Note1 = WS.Range("J2").Value
Note2 = WS.Range("J3").Value
For dong = ReadTopRow To ReadEndRow
Mat = WS.Cells(dong, ReadTopColumn - 1).Value
For Cot = ReadTopColumn To ReadEndColumn
YuuSenDo = WS.Cells(dong, Cot).Value
SizeType = WS.Cells(1, Cot).Value
MatSize = SizeType & WS.Cells(2, Cot).Value
If YuuSenDo <> "" Then
WS.Cells(WriteEndRow, 1).Value = YuuSenDo
WS.Cells(WriteEndRow, 2).Value = SizeType
WS.Cells(WriteEndRow, 3).Value = MatSize
WS.Cells(WriteEndRow, 4).Value = Mat
WS.Cells(WriteEndRow, 5).Value = MatType
WS.Cells(WriteEndRow, 6).Value = Note1
WS.Cells(WriteEndRow, 7).Value = Note2
WriteEndRow = WriteEndRow + 1
End If
Next
Next
End Sub