Nhờ sửa lại code tách sheet

[vova2209]

Đoạn code dưới tách sheet ra theo số lớp đắp đất, nhưng nó lại chạy từ số 1
Giờ em muốn bắt đầu tách ra chạy từ số ô O8 là 200 trongsheets("CDL-K95"), và chạy code nó sẽ nhân bản lên Thành:
CD.L1 ô O8 200
CD.L2 ô O8 201
CD.L3 ô O8 202....

Sub RunCDKL_Lop()
Dim Arr, Rng As Range, Nmax As Long, I As Long
Dim NameSh As String, NameFile As String, CelLink As String, Dk As Boolean

'getSpeed True
Arr = Array("CDL-K95", "DTL-K95")
With Sheets("TH-K95")
Set Rng = .Range("E3", .Range("E65535").End(xlUp))
End With
Nmax = Application.Max(Rng)
NameSh = ActiveSheet.Name: Dk = False
If NameSh = "CDL-K95" Then CelLink = "O8"
If NameSh = "DTL-K95" Then CelLink = "J8"
For I = LBound(Arr) To UBound(Arr)
If Arr(I) = NameSh Then
Dk = True: Exit For
End If
Next I
If Dk = True Then
For I = 1 To Nmax
Sheets(NameSh).Range(CelLink) = I
If NameSh = "CDL-K95" Then
'Call LayKTHH
Call TachSheetCD
End If
If NameSh = "DTL-K95" Then
'Call LayKluong
Call TachSheetKL
End If
Next I
End If
'getSpeed False
End Sub

 

[vova2209]

Đoạn code dưới tách sheet ra theo số lớp đắp đất, nhưng nó lại chạy từ số 1
Giờ em muốn bắt đầu tách ra chạy từ số ô O8 là 200 trongsheets("CDL-K95"), và chạy code nó sẽ nhân bản lên Thành:
CD.L1 ô O8 200
CD.L2 ô O8 201
CD.L3 ô O8 202....

Yêu cầu e ko đúng hay như nào ạ! mong được giúp đỡ

 

[be_09]

Yêu cầu e ko đúng hay như nào ạ! mong được giúp đỡ

Sheet TH-K95 chỉ có 16 mà chọn 200 lấy đâu ra?
Nên sử dụng dữ liệu trên 1 File, trong File có Link đến File là List_V17.09.24.xlsm nên không biết đâu mà rờ (vào Cell N13 sẽ rõ).

 

[vova2209]

Sheet TH-K95 chỉ có 16 mà chọn 200 lấy đâu ra?
Nên sử dụng dữ liệu trên 1 File, trong File có Link đến File là List_V17.09.24.xlsm nên không biết đâu mà rờ (vào Cell N13 sẽ rõ).

Sheet TH-K95 số gốc là 200 nhưng khi chạy code nó chạy về là:
Tự động chạy từ: 1 code copy ra thành sheets CD.L1
2 code copy ra thành sheets CD.L2
3 code copy ra thành sheets CD.L3
------------------------------
em muốn khi code tách ra chạy theo số mạc định trong ô O8 là 200 trong sheets("CDL-K95"), và chạy code nó sẽ nhân bản lên Thành:
CD.L1 ô O8 200
CD.L2 ô O8 201 (Nghĩa là khi copy sheet ra sheets CD.L2 ở ô O8 sẽ cộng 1 từ ô O8 ở sheets sheets("CDL-K95") = 200
CD.L3 ô O8 202....