Aynı Olanların Üzerlerine Kayıt Etme Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! 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 Dim j As Integer, k As Integer j = 1 k = 3 BASADONELIM: '**** Şimdi de aynı fiyattan varmı diye bakalım '**** varsa üzerine toplayalım '**** yoksa alttaki boş satıra gidelim For i = k To k + 15 If txtfiyat.Value * 1 = Cells(i, j + 2) Then Cells(i, j) = Cells(i, j) + txtadet.Value Cells(i, j + 1) = Cells(i, j + 1) + txtkilo.Value Cells(i, j + 2) = Cells(i, j + 2) GoTo AtlaSona Else If Cells(i, j + 2).Value = "" Then Cells(i, j) = txtadet.Value Cells(i, j + 1) = txtkilo.Value Cells(i, j + 2) = txtfiyat.Value GoTo AtlaSona End If End If Next i If i = k + 16 And j - Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 aynı olanların üzerlerine kayıt etme 2 aynı olanın üzerine 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 excelde kendi eklenti ve fonksiyonlarınızı oluşturun 7 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. 8 alt alta kayıt işlemi 9 mükerrer kayıt var ikazı 10 satır veya sütundan aritmetik sıralama 11 a sütununda aynı olanları sayfa alanı olarak ayırır2 12 a sütununda aynı olanları sayfa alanı olarak ayırır 13 a sütununda aynı olanlardan 1 tane bırakır ve sıraya dizer 14 dosyayı sizden başkası kaydetmesin 15 veri değiştirirken uyarı alma 16 dosyayı tarihli olarak kayıt etme 17 çalışma kitabını hardiskinizin "c:" bölümüne istediğiniz adla farklı kaydetmek 18 aynı olanlardan tekini comboboxta listeleme 19 b sütunundaki isimleri a sütunu ile karşılaştırır aynı olanları a sütunundan siler 20 b sütununda aynı olanları siler 1 tane bırakır