kayıt numarası

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

kayıt numarası

İleti#1)  osmanyd » 15 May 2018 16:37

Arkadaşlar merhaba,

Ekteki kodlar ile kayıt numarasını 1 , 2 , 3 olarak saydırıyorum.
Yapmak istediğim kayıt numarasının başında "kayıt" kelimesinin olması. kayıt1 , kayıt2 , kayıt3 şeklinde.
Yardımcı olan arkadaşlara şimdiden teşekkür ederim iyi çalışmalar.

Sub Düğme1_Tıkla()
Sayfa1.Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
End Sub
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 17:35
Konum: istanbul
Meslek: öğrenci
Yaş: 54
İleti: 59
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: kayıt numarası

İleti#2)  işsiz123 » 15 May 2018 17:17

Aşağıdaki gibi deneyebilirsiniz

Kod: Tümünü seç
Sub Düğme1_Tıkla()
Sayfa1.Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = "Kayıt " & 1
Range("A2").Select
Else
ActiveCell.Value = "Kayıt " & Split(ActiveCell.Offset(-1, 0), "Kayıt")(1) + 1
End If
End Sub
Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 17:45
Meslek: YAPI DENETİM
Yaş: 24
İleti: 311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat

Cevap: kayıt numarası

İleti#3)  osmanyd » 16 May 2018 09:19

Mehmet bey,

Çok teşekkür ederim ellerinize sağlık.
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 17:35
Konum: istanbul
Meslek: öğrenci
Yaş: 54
İleti: 59
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: kayıt numarası

İleti#4)  işsiz123 » 16 May 2018 21:38

Rica ederim. İyi çalışmalar
Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 17:45
Meslek: YAPI DENETİM
Yaş: 24
İleti: 311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: senuba ve 5 misafir

Bumerang - Yazarkafe