bul-değiştir-sil-kaydet makrosu 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 CommandButton1_Click() 'bul
For Each hucre In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
   hucre.Select
   TextBox1 = ActiveCell.Offset(0, 1).Value
   TextBox2 = ActiveCell.Offset(0, 2).Value
   TextBox3 = ActiveCell.Offset(0, 3).Value
End If
Next
End Sub
Private Sub CommandButton2_Click() 'değiştir
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox3.Value
End Sub
Private Sub CommandButton3_Click() 'sil
satır = ActiveCell.Row
Rows(satır).Delete Shift:=xlUp
'say = WorksheetFunction.CountA(Range("A2:A65000"))
For i = 1 To WorksheetFunction.CountA(Range("a2:a65000"))
Cells(i + 1, 1) = i
Next
End Sub
Private Sub CommandButton4_Click() 'kaydet                                                                                                                                                    Dim bak As Range
    Dim say As Integer
    For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
        If bak.Value = cbAd.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(cbAd.Value, vbUpperCase) Then
            MsgBox "Bu isimde bir kaydınız bulundu"
            Exit Sub
        End If
    Next bak
b = WorksheetFunction.CountA(Sheets("sayfa1").Range("A:A"))
Sheets("sayfa1").Range("a" & b + 1).Select
ActiveCell = ComboBox1.Value
ActiveCell.Offset(0, 1) = TextBox1.Value
ActiveCell.Offset(0, 2) = TextBox2.Value
ActiveCell.Offset(0, 3) = TextBox3.Value
End Sub
Private Sub UserForm_Initialize()
b = WorksheetFunction.CountA(Range("A2:A6500"))
ComboBox1.RowSource = "sayfa1!a2:a" & b
End Sub

Benzer Sonuçlar
No	Makro Adı
1	bul-değiştir-sil-kaydet makrosu
2	vb kodlari ile bir excel dosyası aciyorum fakat bu excel dosyasindaki makroyu çalıştırma2
3	5. sütunundaki hücreye girilen veriye karşılık farklı farklı makroların çalışması
4	Kullanıcı adına bağlı olarak çalışan makro
5	açılış makrosu(aktif pencerede mesaj verir.)
6	ara bul makrosu
7	30 excel dosyası içinde bir kelime aratma
8	bul makrosu
9	a sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar butona basınca hesaplasın
10	çıkış makrosu
11	save as makrosu sadece belirtilen sayfayı kaydetsin
12	indisin vba makrosu
13	kapanış-çıkış makrosu
14	önizleme makrosu
15	açılış makrosu (istenilen sayfa)
16	commadbuton oluşturma makrosu
17	sayfa numarası ekleme makrosu
18	yer tanımlama makrosu
19	sayfaya jpeg eklemek
20	excel'de kopyalama makrosu nasıl yazılır?

Benzer Sonuçlar

Makro Adı

bul-değiştir-sil-kaydet makrosu

vb kodlari ile bir excel dosyası aciyorum fakat bu excel dosyasindaki makroyu çalıştırma2

5. sütunundaki hücreye girilen veriye karşılık farklı farklı makroların çalışması

Kullanıcı adına bağlı olarak çalışan makro

açılış makrosu(aktif pencerede mesaj verir.)

ara bul makrosu

30 excel dosyası içinde bir kelime aratma

bul makrosu

a sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar butona basınca hesaplasın

çıkış makrosu