Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » excel vba
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

commondialog

Yazar: dilaver
commondialog ile açılan dosyanın sadece adını bulan program


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 2962
Yayın Tar:02.05.2005
Yazar : bakiodemis
Hit :4082

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Private Sub cmdkaydet_Click()

Dim bak As Range
Range("A2").Select
For Each bak In ActiveWorkbook.Application.Range("a2:a100" & WorksheetFunction.CountA(Range("a2:a65000")))
If TXTÜYENO.Value = "" Then
MsgBox "Lütfen üye noyu noyu boş bırakmayın"
TXTÜYENO.SetFocus
Exit Sub
End If
If Val(TXTÜYENO.Value) = 0 Then
MsgBox "Lütfen sayı girin"
TXTÜYENO.SelStart = InStr(TXTÜYENO.Text, TXTÜYENO.Text) + 1
TXTÜYENO.SelLength = (Len(TXTÜYENO.Text))
TXTÜYENO.SetFocus
Exit Sub
End If
If TXTADISOYADI.Value = "" Then
MsgBox "Lütfen adınızı ve soyadınızı giriniz"
TXTADISOYADI.SetFocus
Exit Sub
End If
If Val(TXTADISOYADI.Value) <> 0 Then
MsgBox "Lütfen adınızı ve soyadınızı girin "
TXTADISOYADI.SelStart = InStr(TXTADISOYADI.Text, TXTADISOYADI.Text) - 1
TXTADISOYADI.SelLength = (Len(TXTADISOYADI.Text))
TXTADISOYADI.SetFocus
Exit Sub
End If
If TXTBÖLÜMÜ.Value = "" Then
MsgBox "Lütfen burayı boş bırakmayın."
TXTBÖLÜMÜ.SetFocus
Exit Sub
End If
If Val(TXTBÖLÜMÜ.Value) <> 0 Then
MsgBox "Lütfen bölümünüzü girin"
TXTBÖLÜMÜ.SelStart = InStr(TXTBÖLÜMÜ.Text, TXTBÖLÜMÜ.Text) - 1
TXTBÖLÜMÜ.SelLength = (Len(TXTBÖLÜMÜ.Text))
TXTBÖLÜMÜ.SetFocus
Exit Sub
End If
If TXTSINIFI.Value = "" Then
MsgBox "Lütfen bu kısmı boş bırakmayınız"
TXTSINIFI.SetFocus
Exit Sub
End If
If Val(TXTSINIFI.Value) = 0 Then
MsgBox "Lütfen sınıfınızı girin"
TXTSINIFI.SelStart = InStr(TXTSINIFI.Text, TXTSINIFI.Text) - 1
TXTSINIFI.SelLength = (Len(TXTSINIFI.Text))
TXTSINIFI.SetFocus
Exit Sub
End If
If TXTKAYITTARİHİ.Value = "" Then
MsgBox "Lütfen bu kısmı boş bırakmayınız"
TXTKAYITTARİHİ.SetFocus
Exit Sub
End If
If Val(TXTKAYITTARİHİ.Value) = 0 Then
MsgBox "Lütfen kayıt tarihini girin"
TXTKAYITTARİHİ.SelStart = InStr(TXTKAYITTARİHİ.Text, TXTKAYITTARİHİ.Text) - 1
TXTKAYITTARİHİ.SelLength = (Len(TXTKAYITTARİHİ.Text))
TXTKAYITTARİHİ.SetFocus
Exit Sub
End If
If StrConv(bak.Value, vbUpperCase) = StrConv(TXTÜYENO.Value, vbUpperCase) Then
MsgBox "Bu üye noya ait kayıt bulundu."
Exit Sub
End If
Next bak
'txtsirano.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1


Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = TXTÜYENO.Value
ActiveCell.Offset(0, 1).Value = TXTADISOYADI.Value
ActiveCell.Offset(0, 2).Value = TXTBÖLÜMÜ.Value
ActiveCell.Offset(0, 3).Value = TXTSINIFI.Value
ActiveCell.Offset(0, 4).Value = TXTKAYITTARİHİ.Value
Workbooks("kutuphane.xls").Save

MsgBox "Verileriniz Kaydedildi", , "KAYIT"
'cmdtemizle_Click
'txtsıra.Value = WorksheetFunction.Count(Range("A7:A65000"))
End Sub




Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin