record on multiple sheet / pages with the same macro Free Excel Macros (VBA) | Excel Programs

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

Bu kodları denermisin..Yalnız kaydetmek istediğin hücrelerde veri doğrulama ile yapılmış kısımlar var.Onları halletmen gerek.. 
Kod:

Private Sub CommandButton5_Click() 
If TextBox14.Value  "" Then 
Sheets("Cari Kart").Activate 
Cells(8, 1).Select 
Do While ActiveCell.Value  "" 
If Trim(ActiveCell.Value) = Trim(Me.TextBox15.Value) Then 
If MsgBox(Me.TextBox15 & " Dosya Numaralı Ürün Kaydı Var" & " Yeniden Kayıt Yapılsın mı?", vbYesNo, "Mükerrer Kayıt") = vbNo Then Exit Sub 
End If 
ActiveCell.Offset(1, 0).Activate 
Loop 
ActiveCell.Value = TextBox14.Value 
ActiveCell.Offset(0, 1).Value = TextBox15.Value 
ActiveCell.Offset(0, 2).Value = TextBox16.Value 
ActiveCell.Offset(0, 3).Value = TextBox19.Value 
'diyelimki Bundan sonrakileri Sayfa2'ye kaydedeceksiniz. 
'Sheets("Sayfa2").Select ile verileri kaydetmek istediğiniz sayfaya geçiyor 
'Range ("A1).Select Aktif hücreyi seçerek kaydı tamamlıyor. 
Sheets("Kasa").Select 
Range("B8").Select 
ActiveCell.Offset(1, 0).Activate 
ActiveCell.Value = TextBox14.Value 
ActiveCell.Offset(0, 1).Value = TextBox15.Value 
ActiveCell.Offset(0, 2).Value = TextBox16.Value 
ActiveCell.Offset(0, 3).Value = TextBox19.Value 
'Kasa sayfasına kayıtlar B8 hücresinden başlaması gerekiyor 
'TextBox14 deki bilgiler B sütununa atılıyor 
ActiveCell.Offset(0, 2).Value = TextBox14.Value 
'TextBox17 deki bilgiler C sütununa atılıyor 
ActiveCell.Offset(0, 3).Value = TextBox17.Value 
'TextBox20 deki bilgiler E sütununa atılıyor 
ActiveCell.Offset(0, 5).Value = TextBox20.Value 
End If 
End Sub 
 -

No	Macro Name
1	record on multiple sheet / pages with the same macro
2	excel operators hk
3	recording and running the macro at boot
4	records detailed formatted cells on the records sheet / page
5	status bar macro with a message waiting
6	Printing These macro codes help you automate some print tasks that will save you more time. & Nbsp; Print Comments: Use this macro to enable settings to print cell comments at the end of the sheet / page. Suppose you have 10 sheet / pages to print, and after using this code you will receive all comments on sheet / page 11.
7	selects sheet / pages, makes the same cells bold, and changes the font
8	auto macro recording
9	insert sheet / page number macro
10	automatic custom footer and header information on sheet / pages
11	right mouse on active sheet / page menu
12	inserts months as sheet / pages Specifies days in detail
13	hyperlinks to sheet / pages from the active cell
14	a cell with a formula
15	summer adds months to sheet / pages
16	writes the names of all sheet / pages from the active sheet / page and cell and adds a link to the sheet / pages
17	add sheet / pages as menus
18	printing and prompting
19	a macro that automatically deletes the following month-old sheet / pages before moving to the new month when the specified month is over
20	add sheet / pages

Excel Free Macros (VBA)

Record On Multiple Sheet / Pages With The Same Macro

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords