Excel'le Adım Adım Program Yazma

ÇOK işime yaradı teşekkürler.emeğinize sağlık.

ÇOK işime yaradı teşekkürler.emeğinize sağlık.

Ben de memnun oldum. Burası bir kod kütüphanesi olur inşallah.

AÇik olan tÜm excel sayfalarini kayit ederek kapatabiliyoruz.

For Each w In Application.Workbooks
    w.Save
Next w
Application.Quit

AÇIKLAMA FORMUNUN ADRESİ.

Private Sub CommandButton11_Click()
Load UserForm1
UserForm1.Show
End Sub

AÇIKLAMA FORMUNU KAPAR.

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Açılışta istediğin makronun çalışması

sub auto_open()

call  <istediğin makronun adını yaz>
end sub

Açılışta istediğiniz makro otomatİk çalışsın.

sub auto_open()
call calisacakmakroadi ' Çalışmasını istediğiniz makronun adı ...
end sub

Açılıştan önce userform  gelsin.

Sub auto_open()
UserForm1.Show
End Sub                                                                                                                                                                                                        Sub CommanButton1_Click()
Application.Visible = True
Sheets("Sayfa1").Select
UserForm1.Hide
End Sub     

Ad oluşturma penceresi


Sub Dialog_17()
Application.Dialogs(xlDialogCreateNames).Show
End Sub

Ad tanımlama penceresi

Sub Dialog_20()
Application.Dialogs(xlDialogDefineName).Show
End Sub

Ad tanımlı hücrelerin ayrı ayrı seçimi

Range("A1:newrij,b1:sprij").Select

Ad ve soyadı karşılaştırarak kayıt yapan kodlar

Private Sub CommandButton1_Click()
'boş geçilemeyeceğini belirten yordam
If TextBox1.Text = Empty Then
MsgBox ("Ad kısmını boş geçmeyiniz"), vbOKOnly, "Uyarı!!!": Exit Sub
Else
End If
If TextBox2.Text = Empty Then
MsgBox ("Soyadı yazmak mecburidir"), , "Uyarı!!!": Exit Sub
Else
End If
'kayıt kodları
pir = False
sonsatir = Cells(65536, 1).End(xlUp).Row
For x = 2 To sonsatir
        If Cells(x, 1) & Cells(x, 2) = TextBox1 & TextBox2 Then
        pir = True
        sira = x
        Exit For
        End If
Next x
If pir = False Then
Cells(sonsatir + 1, 1) = TextBox1
Cells(sonsatir + 1, 2) = TextBox2
MsgBox (sonsatir + 1 & ". sıraya kaydı yapıldı.")
Else
MsgBox ("Bu kayıt daha önce girilmiş..." & sira & ". satir")
End If
End Sub

Adres göstererek gizleme

Sub AfficheLigneColonne()
[A:IV].Select
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
Cells(1, 1).Select
End Sub

Ağ bağlantınızın adı

Declare Function nom_ordi Lib "kernel32" Alias "GetComputerNameA" (ByVal lbbuffer As String, nsize As Long) As Long

Sub nom_de_l_ordinateur()
Dim ag As String
ag = Space(50)
Call nom_ordi(ag, 51)
MsgBox Left(ag, InStr(1, ag, Chr(0)) - 1)
End Sub

lan üzerindeki bir makinedeki bir excel kitabının içindeki makroyu kendi makinenizden çalıştırmak

Application.Run "\\makineadi\klasoradi\kitapadi.xls!makroadi"
'eğer kitaplar aynı makine üzerinde ise
Application.Run "c:\klasoradi\kitapadi.xls!makroadi"