saves data Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
VERİLERİ KAYDEDER
Private Sub CommandButton5_Click()
    Dim bak As Range
    Dim say As Integer
    For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
        If bak.Value = ComboBox1.Value Then
            MsgBox "Bu Kayıt numarası bulundu."
            Exit Sub
        End If
    Next bak
    For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
            MsgBox "Bu isimde bir kaydınız bulundu"
            Exit Sub
        End If
    Next bak
    say = WorksheetFunction.CountA(Range("B1:B65000"))
    TextBox1.Value = say
    Cells(say + 1, 1).Value = TextBox1.Value
    Cells(say + 1, 2).Value = ComboBox1.Value
    Cells(say + 1, 3).Value = TextBox2.Value
    Cells(say + 1, 4).Value = TextBox3.Value
    Workbooks("kitap2.XLS").Save
    MsgBox "Verileriniz Kaydedildi", , "KAYIT"
        ComboBox1.RowSource = "Veri!B2:B" & say + 1
    TextBox1.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
Unload UserForm1
    UserForm1.Show
End Sub
'BU KOD FORMA YAZILIR
Private Sub UserForm_Initialize()
    Dim say As Integer
    Sheets("Veri").Select
    TextBox1.Locked = True
    If Range("B2") = "" Then
        say = WorksheetFunction.CountA(Range("B1:B65000"))
        ComboBox1.RowSource = "Veri!B2:B" & say + 1
    Else
        say = WorksheetFunction.CountA(Range("B1:B65000"))
        ComboBox1.RowSource = "Veri!B2:B" & say
    End If
    TextBox1.Value = say
    ComboBox1.SetFocus
End Sub

No	Macro Name
1	saves data
2	get information from the registry
3	endpoint in encryption
4	do not open excel file after a certain date
5	saves the workbook with the date of the day - if any saves
6	saves the date of a1 to the bottom left
7	Save Each Worksheet as a Single PDF: This code simply saves all worksheets in a separate PDF file. You just need to change the folder name of the code.
8	Attendance Codes workbook-level tasks & nbsp; it will help you perform it easily and with minimal effort. & Nbsp; Create a Backup of a Current Workbook: This is one of the most useful macros that can help you save a backup file of a current workbook. Saves a backup file in the directory where your current file is saved. & Nbsp; It will also add the name of the file to the current date.
9	saves according to the sheet / pages in column b
10	backups and saves the workbook (to the current directory) --- per-author
11	Allow data entry and other operations only to cells that have been used so far
12	output as a word sheet / page
13	worde data transfer
14	Highlight Specific Text: Suppose you have a large data set and want to control a specific value. You can use this code for this. When you run, you receive an input box to enter the value to search for.
15	Remove the abbreviation from Number One: Run this code to remove it if you have numeric data with an apostrophe before each number.
16	save to a blank line of the sheet / page that is closed
17	Replace Empty Cells with Zeros: You can add zeros to data where you have empty cells. The formula makes it easier to use and use these cells in advanced accounts.
18	save optional data to sheet / pages
19	receive alerts when changing data
20	do sorting into protected cells?

Excel Free Macros (VBA)

Saves Data

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords