under-registration Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

Private Sub CommandButton1_Click() 
Application.ScreenUpdating = False 
'BU KOD MAKRO ÇALIŞINKEN SAYFA HAREKETLERİNİ ENGELLER 
If TextBox1.Value = "" Then 
MsgBox ("KAYIT YAPILACAK KİŞİNİN İSMİNİ GİRİNİZ.") 
Exit Sub 
Else 
End If 
'BU KOD TEXTBOX1 E KAYIT GİRİLMEMİŞ İSE İŞLEM YAPMASINA İZİN VERMEZ. 
Sheets("DATA").Select 
Range("a2").Select 
Do While Not IsEmpty(ActiveCell) 
ActiveCell.Offset(1, 0).Select 
Loop 
If Range("a2").Value = "" Then 
Range("a2").Value = 1 
Else

ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1

End If 
'BU KODLAR DATA SAYFASINI SEÇER,KAYIT OLMAYAN SATIRI BULUR,KAYIDA OTOMATİK NUMARA VERİR. 
ActiveCell.Offset(0, 1).Value = TextBox1.Value 
ActiveCell.Offset(0, 2).Value = TextBox2.Value 
ActiveCell.Offset(0, 3).Value = TextBox3.Value 
ActiveCell.Offset(0, 4).Value = TextBox4.Value 
ActiveCell.Offset(0, 5).Value = TextBox5.Value 
ActiveCell.Offset(0, 6).Value = TextBox6.Value 
ActiveCell.Offset(0, 7).Value = TextBox7.Value 
ActiveCell.Offset(0, 8).Value = TextBox8.Value 
ActiveCell.Offset(0, 9).Value = TextBox9.Value 
ActiveCell.Offset(0, 10).Value = TextBox10.Value 
ActiveCell.Offset(0, 11).Value = TextBox11.Value 
ActiveCell.Offset(0, 12).Value = TextBox12.Value 
ActiveCell.Offset(0, 13).Value = TextBox13.Value 
ActiveCell.Offset(0, 14).Value = TextBox14.Value 
ActiveCell.Offset(0, 15).Value = TextBox15.Value 
ActiveCell.Offset(0, 16).Value = TextBox16.Value 
'BU KODLAR TEXTBOXDAKİ BİLGİLERİ AYNI SATIRDA,FARKLI SUTUNLARA KAYIT YAPAR 
TextBox1.Value = "" 
TextBox2.Value = "" 
TextBox3.Value = "" 
TextBox4.Value = "" 
TextBox5.Value = "" 
TextBox6.Value = "" 
TextBox7.Value = "" 
TextBox8.Value = "" 
TextBox9.Value = "" 
TextBox10.Value = "" 
TextBox11.Value = "" 
TextBox12.Value = "" 
TextBox13.Value = "" 
TextBox14.Value = "" 
TextBox15.Value = "" 
TextBox16.Value = "" 
'BU KODLAR TEXTBOXLARDAKİ VERİLERİ SİLER        
MsgBox ("Bilgiler veri tabanına kayıt edildi.") 
'BU KOD MESAJ VERİR. 
Application.ScreenUpdating = True 
'BU KOD SAYFA HAREKETİNİ NORMAL HALE GETİRİR. 
End Sub

No	Macro Name
1	under-registration
2	inserts blank lines under the full rows in column (a: a)
3	Adds a blank line under the full rows in column a: a
4	Add time and date annotation to cell in double-click
5	excel version finder
6	copies active sheet / page email
7	message
8	Specifies the converted cells that converts uppercase to lowercase. (Toggle)
9	inserts the date and time when data was entered into the cells where data was entered on the active sheet / page as a comment
10	remove userform x
11	book title naming (caption)
12	inserts and deletes annotations with the date and time in the active sheet / page
13	email selected cells
14	untitled userform
15	Numbers and codes from a1 to b1
16	hides the close button on the top right of the userform
17	convert double and single lines into different colors and designs (one line is bold and the other line is normal)
18	userform 3 hides the close button on the top right of userform
19	forms do not allow x to exit
20	no userform x

Excel Free Macros (VBA)

Under-registration

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords