Snasui Excel Forum

Code: Select all

    'Worksheets("User").Select
    lr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    '...Other code....

Code: Select all

Sub insertROW1()
'
' insertROW Macro
'
Dim sh As Worksheet
For Each sh In Worksheets
    
    lr = ThisWorkbook.Sheets("sh.name").Cells(Rows.Count, 2).End(xlUp).Row
    Cells(4, 100).Select
    lc = Selection.End(xlToLeft).Column
    Cells(lr, 2).Select

    
   Dim i, j, k   As Integer
        i = lr - 5
        j = Range("element").Value
        k = i + 6
        
    For i = i To j - 1
        Rows(k).Select
        Selection.Insert
        Cells(k, 2) = Cells(k - 1, 2) + 1
      
        k = k + 1


Next i
Next sh


End Sub

Code: Select all

Sub Reset1()
'
' Reset Macro
'

'
    Dim sh As Worksheet
    For Each sh In Worksheets
    
        lr = ThisWorkbook.Sheets(sh.Name).Cells(Rows.Count, 2).End(xlUp).Row
        Cells(4, 100).Select
        
        lc = Selection.End(xlToLeft).Column
        Cells(lr, 2).Select
        Cells.FormatConditions.Delete
        
        If lc > 15 Then
        Range(Columns(5), Columns(lc - 11)).Select
        Selection.Delete Shift:=xlToLeft
        End If
        
        If lr > 6 Then
        Range(Rows(7), Rows(lr)).Select
        Selection.Delete Shift:=xlUp
        End If
        
        Range("C6:O6").Select
        Selection.ClearContents
        
        Range("c1:c2").Select
        Selection.ClearContents
        
        Sheets("Summary").Select
        Range("C5").Select
        Selection.ClearContents
        Range("E5").Select
        Selection.ClearContents
        
        Sheets("Main user").Select
    Next sh

End Sub

Code: Select all

Sub Reset1()
'
' Reset Macro
'

'
    lr = ThisWorkbook.Sheets("Process1").Cells(Rows.Count, 2).End(xlUp).Row
    Cells(4, 100).Select
    
    
    lc = Selection.End(xlToLeft).Column
    Cells(lr, 2).Select
    Cells.FormatConditions.Delete
    
    
    If lc > 15 Then
    Range(Columns(5), Columns(lc - 11)).Select
    Selection.Delete Shift:=xlToLeft
    End If
    
    If lr > 6 Then
    Range(Rows(7), Rows(lr)).Select
    Selection.Delete Shift:=xlUp
    End If
    
    Range("C6:O6").Select
    Selection.ClearContents
    
    Range("c1:c2").Select
    Selection.ClearContents
    
    Sheets("Summary").Select
    Range("C5").Select
    Selection.ClearContents
    Range("E5").Select
    Selection.ClearContents
    
    Sheets("Main user").Select


End Sub