verileri kaydeder 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. 
 
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

Benzer Sonuçlar
No	Makro Adı
1	verileri kaydeder
2	veri değiştirir
3	ayın olanın yanındaki hücreye kaydeder (a,b,c sütunundaki verilere göre)
4	b sütunundaki sayfalara göre kaydeder
5	forma otomatik resim getirme
6	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
7	aynı makroyla birden çok sayfaya kayıt yapmak
8	yapılan kaydı hafızada tutma
9	veri kaydırır
10	veri kaydırır
11	belirlediğim verilerin klasör, dosyaadi olarak kaydı
12	listbox'tan seçilen hücreyi silmek.
13	istediğiniz sayfa hariç sayfadaki verileri temizler
14	pdf dosyasından verileri kopyalama ve Excel dosyasına yapıştırma
15	kapalı dosyalardan verileri toplayarak almak
16	"Grafik Kaynak Verileri" Dialog Penceresi
17	eş zamanli olmayan verileri otomatik silen kod
18	listboxtaki verileri sayfaya aktarma
19	Pivot Verilerini Devre Dışı Bırak / Devreye Al: GetPivotData işlevini devre dışı bırakmak / etkinleştirmek için Excel seçeneğini kullanmanız gerekir. Ancak, bu kodla tek bir tıklamayla yapabilirsiniz.
20	verilerin rapor olarak saklanmasi

Benzer Sonuçlar

Makro Adı

verileri kaydeder

veri değiştirir

ayın olanın yanındaki hücreye kaydeder (a,b,c sütunundaki verilere göre)

b sütunundaki sayfalara göre kaydeder

forma otomatik resim getirme

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

aynı makroyla birden çok sayfaya kayıt yapmak

yapılan kaydı hafızada tutma

veri kaydırır

belirlediğim verilerin klasör, dosyaadi olarak kaydı