alt alta kayıt işlemi 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 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

Benzer Sonuçlar
No	Makro Adı
1	alt alta kayıt işlemi
2	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
3	veri değiştirirken uyarı alma
4	forma otomatik resim getirme
5	dosyanın açılma tarih ve saatini txtye işler (alt alta)
6	alt alta kaydetme ve alfabetik sıralama
7	aktif sayfada a1 den itibaren alt alta 3 hücreyi kalın yapar
8	varolan sayfaları a1 itibaren alt alta yazar
9	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
10	virgüllü kelimeleri alt alta sıralar
11	Gelişmiş DÜŞEYARA (VLOOKUP) Formülü: Aranan değer bir defadan fazla geçiyorsa ikinci veya üçüncü defa geçen değerin karşısındaki ifadeyi getirir.
12	her 3 saniyede alt alta formül girme
13	mesaj alt alta birleştirme
14	b3 e göre alt alta 10 adet yazıp toplar
15	textboxlarda yazanları tek textboxta alt alta birleştirmek
16	text dosyasından veri alma (alt alta, tüm veriler)
17	kapalı olan sayfanın boş olan bir alttaki satırına kayıt
18	comboboxa göre kayıt
19	multipage zemin rengi
20	textboxa sadece rakam girme

Benzer Sonuçlar

Makro Adı

alt alta kayıt işlemi

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

veri değiştirirken uyarı alma

forma otomatik resim getirme

dosyanın açılma tarih ve saatini txtye işler (alt alta)

alt alta kaydetme ve alfabetik sıralama

aktif sayfada a1 den itibaren alt alta 3 hücreyi kalın yapar

varolan sayfaları a1 itibaren alt alta yazar

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

virgüllü kelimeleri alt alta sıralar