update Generic Master bas4
This commit is contained in:
@@ -8,7 +8,7 @@ Private Sub Worksheet_Change(ByVal Target As Range)
|
|||||||
If Trim(cell.Value) = "" Then
|
If Trim(cell.Value) = "" Then
|
||||||
Call ClearRowData(Me, cell.Row)
|
Call ClearRowData(Me, cell.Row)
|
||||||
Else
|
Else
|
||||||
Call FillFromKukanMaster(Me, cell.Row)
|
Call FillFromZ1(Me, cell.Row)
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
@@ -343,3 +343,14 @@ Sub M1_Export()
|
|||||||
MsgBox "CSV export completed. Total data rows: " & rowCount, vbInformation
|
MsgBox "CSV export completed. Total data rows: " & rowCount, vbInformation
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Sub M1_SortDataRowsByC()
|
||||||
|
Call SortDataRows(3)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub M1_ToggleAutoFilter()
|
||||||
|
Call ToggleAutoFilter(6)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub M1_AutoFitColumnWidth()
|
||||||
|
Call AutoFitColumnWidth(3, 14)
|
||||||
|
End Sub
|
||||||
Binary file not shown.
Reference in New Issue
Block a user