Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 30-01-2011, 22:06   #1
zamanakarsi
 
Giriş: 27/01/2011
Şehir: Niğde
Mesaj: 11
Excel Vers. ve Dili:
2003
Varsayılan Sıra numarası verme? Nerde yanlışım var açıklarmısınız?

Arkadaşlar;
Örnekte eklediğim kodda butonla sayfaya sıra numarası yazdırıyorum. Yalnız 25 kayıttan sonrasını yapmasın. Kodları yazdım. Mesaj da verdirdim. Fakat 25 kayıttan sonra makrodan çıkması gerekiyor ama çıkmıyor. Nerde hata yapıyorum. Açıklayarak anlatırsanız öğrenmiş olurum . Şimdiden teşekkürler

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Public modsay, moad As Long

Sub tanımla()
  modsay = Sayfa10.Range("a40").End(xlUp).Row
moad = modsay
End Sub
Sub kontrol()
tanımla
moad = moad - 14
If moad = 25 Or moad > 25 Then
MsgBox "Son Modülü Kaydettiniz. Yeter Üleeeeeen!"
Exit Sub
Else
yaz
End If
End Sub
Sub verial()

End Sub
Sub temmizle()

End Sub

Sub yaz()

Sayfa10.Cells(modsay + 1, 1) = modsay - 13

End Sub

Private Sub CommandButton1_Click()
kontrol
yaz
End Sub
Eklenmiş Dosyalar
Dosya Türü: xls deneme1.xls (52.5 KB, 8 Görüntülenme)
zamanakarsi Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-01-2011, 22:33   #2
Mahir ÇÜMEN
Destek Ekibi
 
Mahir ÇÜMEN kullanıcısının avatarı
 
Giriş: 19/04/2006
Şehir: UŞAK
Mesaj: 5,060
Excel Vers. ve Dili:
Excel 2013-Türkçe
Varsayılan

Merhaba
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
kontrol
End Sub
CommandButton kodunu bu şekilde deneyin
__________________
Türkçenin bir eksiği yok, ya sizin?

Bir yalan, hangi amaç için söylenmiş olursa olsun, her zaman, en kötü gerçekten daha kötüdür.Che Guevara
Mahir ÇÜMEN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-01-2011, 22:36   #3
turan1971
 
Giriş: 28/12/2005
Mesaj: 92
Varsayılan

Commandbutton1 deki yaz subuna gidişi silmeniz gerekir...
Dosyanız ektedir...
Eklenmiş Dosyalar
Dosya Türü: xls deneme1.xls (46.5 KB, 8 Görüntülenme)
turan1971 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-01-2011, 23:07   #4
zamanakarsi
 
Giriş: 27/01/2011
Şehir: Niğde
Mesaj: 11
Excel Vers. ve Dili:
2003
Varsayılan

Teşekkürler. Peki 2 adet textbox eklesek ve bunları sayfaya aktarsak. Yani 1.numarayı verince yanına adı soyadını, hemen sağınada 3 saat gibi bişi yazdırsak (buraya kadarını yapıyorum) ama textbox1. ve 2 de veri olmayınca textbox2 sayısal veri olmayınca nasıl uyarı verdiririz. açıklarmısınz lütfen. öğrenmek amacıyla. Çok sağolun
zamanakarsi Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 17:39


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden