aynı olanın üzerine kayıt etme 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 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

Benzer Sonuçlar
No	Makro Adı
1	aynı olanın üzerine kayıt etme
2	aynı olanların üzerlerine kayıt etme
3	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
4	aynı makroyla birden çok sayfaya kayıt yapmak
5	girilen verinin aynısı varsa kaydetmesin
6	Tüm çalışma kitaplarını aynı anda kapatın: Tüm açık çalışma kitaplarını kapatmak için bu makro kodunu kullanın. Bu makro kodu önce tüm çalışma kitaplarını teker teker kontrol eder ve kapatır. & Nbsp; Çalışma sayfalarından herhangi biri kaydedilmezse, kaydetmek için bir ileti alırsınız.
7	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
8	alt alta kayıt işlemi
9	save as (farklı kaydet)
10	hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
11	mükerrer kayıt var ikazı
12	hücredeki yazi karakterinin rengine göre filtreleme
13	satır veya sütundan aritmetik sıralama
14	dosyayı sizden başkası kaydetmesin
15	veri değiştirirken uyarı alma
16	makrolar kutusu ve makrolar görünsün
17	çalışma kitabını hardiskinizin "c:" bölümüne istediğiniz adla farklı kaydetmek
18	dosyayı tarihli olarak kayıt etme
19	ağ üzerinden diğer kitaptaki makroyu çalıştırma
20	nesne özelliğini tek seferde değiştirme

Benzer Sonuçlar

Makro Adı

aynı olanın üzerine kayıt etme

aynı olanların üzerlerine kayıt etme

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

aynı makroyla birden çok sayfaya kayıt yapmak

girilen verinin aynısı varsa kaydetmesin

Tüm çalışma kitaplarını aynı anda kapatın: Tüm açık çalışma kitaplarını kapatmak için bu makro kodunu kullanın. Bu makro kodu önce tüm çalışma kitaplarını teker teker kontrol eder ve kapatır. & Nbsp; Çalışma sayfalarından herhangi biri kaydedilmezse, kaydetmek için bir ileti alırsınız.

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

alt alta kayıt işlemi

save as (farklı kaydet)

hücrede bir sonraki ayın gün sayısı kadar gün ilave etme