Em đang xử lý đoạn code tìm 6 giá trị MAX ở ROW thứ 34 mà chưa biết làm thế nào ca
-> 
Các huynh cứu em với

Em đa tạ các huynh nhiêuuuuuuuuuuuu


Mục đích em tìm 6 giá trị max đó là để đưa sang Cells A1:F1 của workbook mới tạo ra bằng Button TẠO BÁO CÁO (Mỗi ngày tạo 1 workbook mới để tổng hợp dữ liệu (tìm Max)sau khi đã tính tổng ở ở ROW thứ 34 )
Đây là file em đính kèm


Các huynh cứu em với


Em đa tạ các huynh nhiêuuuuuuuuuuuu



Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'End Sub
Dim i%, n%, tam%, j%
Dim tim As Integer
For n = 3 To 1116 Step 34
If Sheet2.Cells(n, 2) <> "" Then
tam = 0
For i = 5 To 28
For j = n To n + 32
tam = tam + Sheet2.Cells(j, i)
Next j
Sheet2.Cells(n + 33, i) = tam
tam = 0
Next i
End If
Next n
End Sub
Đây là file em đính kèm
File đính kèm
Lần chỉnh sửa cuối: