bossbanme

12PPWe

Dec 29th, 2020 (edited)
1,300
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Else 'DEM SO LAN BO QUA
  2.        Dim a As Integer
  3.             a = [KODANH].Rows.Count
  4.             Dim i As Integer
  5.             For i = 1 To a
  6.                 If Range("B20") = i Then
  7.                     Range("D" & i + 23) = Range("D" & i + 23) + 1
  8.                 End If
  9.             Next
  10.      End If
RAW Paste Data