Open a new worksheet with a name entered in textbox1 Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Private Sub CommandButton2_Click() 
    If Not TextBox1 = Empty Then 
        For i = 1 To Worksheets.Count 
            If Sheets(i).Name = TextBox1 Then 
                MyQ = MsgBox("Bu isimde bir şirket var, değişik bir isim girmelisiniz !") 
                TextBox1 = Empty 
                TextBox1.SetFocus 
                Exit Sub 
            End If 
        Next 
        Set NewSh = Worksheets.Add 
        With NewSh 
            .Name = TextBox1 
            .Range("A1") = Label2 
            .Range("A2") = Label3 
            .Range("A3") = Label4 
            .Range("A4") = Label5 
            .Range("B1") = TextBox2 
            .Range("B2") = TextBox3 
            .Range("B3") = TextBox4 
            .Range("B4") = TextBox5 
            .Range("B5") = TextBox6 
            .Columns("A:A").ColumnWidth = 12 
            .Columns("B:B").ColumnWidth = 34 
            .Columns("C:C").ColumnWidth = 19 
            .Columns("D:D").ColumnWidth = 19 
        End With 
    End If 
    
    With Range("A9:D9") 
    With .Borders(xlEdgeLeft) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With .Borders(xlEdgeTop) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With .Borders(xlEdgeBottom) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With .Borders(xlEdgeRight) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With .Borders(xlInsideVertical) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    End With 
    
    With Range("A1:D8") 
    .Borders(xlDiagonalDown).LineStyle = xlNone 
    .Borders(xlDiagonalUp).LineStyle = xlNone 
    With .Borders(xlEdgeLeft) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With .Borders(xlEdgeTop) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With .Borders(xlEdgeBottom) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With .Borders(xlEdgeRight) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    .Borders(xlInsideVertical).LineStyle = xlNone 
    .Borders(xlInsideHorizontal).LineStyle = xlNone 
    End With 
    
    Set NewSh = Nothing 
End Sub

No	Macro Name
1	Open a new worksheet with a name entered in textbox1
2	excel operators hk
3	add sheet / pages as menus
4	add excel sheets as menus
5	select sheet / pagename if it exists from the sheet / page and continue processing on the sheet / page, if not, it will open a new worksheet under sheet / pagename
6	active cell printing
7	printing and prompting
8	sheet / pages with toolbars and menus
9	Select txt file to write to new excel sheet
10	open the form in another open excel worksheet
11	Add menu to file edit bar delete
12	a cell with a formula
13	remove sheet / page protections
14	summer adds months to sheet / pages
15	Inputbox add year as summer
16	specifies in detail how many references the book contains (on new sheet / page)
17	specifies in detail how many formulas are in the book (on new sheet / page)
18	list formulas on new sheet / page
19	inserts months as sheet / pages Specifies days in detail
20	65536 more than the other sheet I want to throw ....

Excel Free Macros (VBA)

Open A New Worksheet With A Name Entered İn Textbox1

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords