textbox1'e girilen bir isimle yeni çalışma sayfası açma Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
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

Benzer Sonuçlar
No	Makro Adı
1	textbox1'e girilen bir isimle yeni çalışma sayfası açma
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	sayfadan var ise sayfaadi'ni seçip sayfa üzerinde işleme devam edecek yok ise eğer sayfaadi altında yeni çalışma sayfası açacak
4	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
5	forma otomatik resim getirme
6	işgünlerine ait sheet açmak.
7	İçerik Tablosu Yaratın: Çalışma kitabınızda 100ün üzerinde çalışma sayfanız olduğunu varsayalım. Ve şimdi gezinmek zor. Bu makro kodunun her şeyi kurtaracağından endişelenmeyin. Bu kodu çalıştırdığınızda, yeni bir çalışma sayfası oluşturacak ve onlara bir köprü içeren çalışma sayfalarının & nbsp; bir dizini oluşturacaktır.
8	aynı makroyla birden çok sayfaya kayıt yapmak
9	yalniz çalışma sayfası kaydetme
10	değişen hücreleri göster
11	başka açık bir excel çalışma sayfasındaki formu açma
12	klasörden çalışma sayfası açma ve köprü kurma
13	excel dosyasının cd’de çalışması
14	Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?
15	dosyada kişi resmi olmadiğinda formdaki imagenin boş olmasi
16	WorksheetBu makro kodları, çalışma sayfalarını kolay bir şekilde kontrol etmenize ve yönetmenize ve çok fazla zaman kazandırmanıza yardımcı olacaktır. Aktif Çalışma Sayfası dışındaki tüm gizle: Şimdi, eğer çalışma kitabınızdaki aktif çalışma sayfasından başka tüm çalışma sayfalarını gizlemek isterseniz şunu diyelim: . Bu makro kodu sizin için bunu yapar.
17	makronun otomatik olarak açılması ve çalışması
18	Seçilen bölgedeki tüm kelimelerin ilk harfini büyük ve diğer harflerini küçük yapmak
19	makrolar kutusu ve makrolar görünsün
20	Bir Çalışma Sayfasındaki Tüm Grafikleri Boyutlandır: Tüm grafikleri aynı boyutta yapın. Bu makro kodu, aynı grafiğin tüm boyutlarını almanıza yardımcı olacaktır. Grafikleri makro kodunda değiştirerek yüksekliği ve genişliğini değiştirebilirsiniz.

Benzer Sonuçlar

Makro Adı

textbox1'e girilen bir isimle yeni çalışma sayfası açma

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

sayfadan var ise sayfaadi'ni seçip sayfa üzerinde işleme devam edecek yok ise eğer sayfaadi altında yeni çalışma sayfası açacak

menü çubuğunun silinmesi ve özel bir menünün oluşturulması

forma otomatik resim getirme

işgünlerine ait sheet açmak.

İçerik Tablosu Yaratın: Çalışma kitabınızda 100ün üzerinde çalışma sayfanız olduğunu varsayalım. Ve şimdi gezinmek zor. Bu makro kodunun her şeyi kurtaracağından endişelenmeyin. Bu kodu çalıştırdığınızda, yeni bir çalışma sayfası oluşturacak ve onlara bir köprü içeren çalışma sayfalarının & nbsp; bir dizini oluşturacaktır.

aynı makroyla birden çok sayfaya kayıt yapmak

yalniz çalışma sayfası kaydetme

değişen hücreleri göster