recording on the same Free Excel Macros (VBA) | Excel Programs

Warning: session_start() [function.session-start]: Cannot send session cookie - headers already sent by (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Excel Free Macros (VBA)

Recording On The Same

Online Excel and Excel Macro (VBA) Courses

Copy Macro

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

Private Sub cmbkaydet_Click()
Dim i As Integer
Sheets("Sayfa1").Select
'*** önce textoxları kontrol edelim
If txtadet.Value = "" Or txtkilo.Value = "" Or txtfiyat.Value = "" Then
    MsgBox "Eksik taımlama yapmışsınız!"
    Exit Sub
End If

'**** Şimdi de aynı fiyattan varmı diye bakalım
'**** varsa üzerine toplayalım
'**** yoksa alttaki boş satıra gidelim
For i = 1 To 18
    If txtfiyat.Value * 1 = Cells(i, 3) Then
        Cells(i, 1) = Cells(i, 1) + txtadet.Value
        Cells(i, 2) = Cells(i, 2) + txtkilo.Value
        Cells(i, 3) = Cells(i, 3)
        GoTo AtlaSona
    Else
    If Cells(i, 3).Value = "" Then
        Cells(i, 1) = txtadet.Value
        Cells(i, 2) = txtkilo.Value
        Cells(i, 3) = txtfiyat.Value
        GoTo AtlaSona
    End If
    End If
Next i
MsgBox "18 satırınız da dolmuş"
Exit Sub
AtlaSona:
    txtadet.Value = ""
    txtkilo.Value = ""
    txtfiyat.Value = ""
    MsgBox "Kaydedildi"
    txtadet.SetFocus
End Sub

Report problem with this macro

Report error

ALL MACROS

Youtube Channel
The following macros may be useful for you.

Similar Results
No	Macro Name
1	recording on the same
2	record on multiple sheet / pages with the same macro
3	auto macro recording
4	record on the same ones
5	excel operators hk
6	records detailed formatted cells on the records sheet / page
7	recording and running the macro at boot
8	Leaves 1 of the same ones in column a and queues
9	Adding Rows and Total Formula When Cell Changes
10	adding two lines and removing total
11	remove sheet / page protections
12	separates the text in the active cell into letters (columns)
13	Resize All Graphics on a worksheet: Make all graphics the same size. This macro code will help you get all the dimensions of the same chart. You can change the height and width by changing graphics in macro code.
14	What you write to a3 is the same as b7
15	copies the abc column to the same directory txt file closes
16	copies the same sheet / page as the active sheet / page.
17	Copy and paste cell values by shortcut
18	bullets (mark) insert delete
19	select cells to delete 2 kinds of bullet (3 clicks in turn)
20	Delete all modules in an Excel file at the same time

Excel Free Macros (VBA)

Recording On The Same

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords