Otomatik Rakam Arttırma

[zafer.kargin]

Üstadlar Merhaba

Sizlerden Bir Yardım İsteyeceğim Ekteki Dosyada Bulunan Döküm İçerisinde B sütunundaki YEVMİYE NO: Yazan Veride Numaraları Sıralı Olrak 1 den başlayıp Arttırabilmeniz mümkün mü arada veri olduğu için sürükle yapamıyorum

Dosya Ektedir.

http://www.dosya.tc/server32/1W0OMh/013_0644833A-97E7-8480-3DCB082887D6AB66.xls.html

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    SAY = 1
    For i = 2 To [A65536].End(3).Row
        
        If Cells(i, "A") Like "YEVMİYE NO" & "*" Then
            Cells(i, "A") = "YEVMİYE NO: " & SAY
            SAY = SAY + 1
        End If
    Next i
End Sub

. . .

 

[Erdem Akdemir]

Sub dd()
son = Range("a65500").End(3)(1, 1).Row
k = 1
For i = 1 To son
If VBA.Mid(Cells(i, "a"), 1, 10) = "YEVMİYE NO" Then
Cells(i, "a") = "YEVMİYE NO: " & k
k = k + 1
End If
Next i
End Sub

 

[YUSUF44]

Alternatif olsun:

Sub yevmiye()
For i = 4 To Cells(Rows.Count, "a").End(xlUp).Row
If Left(Cells(i, "a"), 10) = "YEVMİYE NO" Then
Cells(i, "a") = "YEVMİYE NO: "
End If
Next
For i = Cells(Rows.Count, "a").End(xlUp).Row To 4 Step -1
If Cells(i, "a") = "YEVMİYE NO: " Then
Cells(i, "a") = "YEVMİYE NO: " & WorksheetFunction.CountIf(Range("a2:a" & i - 1), "YEVMİYE NO: ") + 1
End If
Next
End Sub

 

[zafer.kargin]

ÜStad Maktoyu Çalıştıramadım

 

[Murat OSMA]

Hatırlatma:
Döngü içerisindeki şarttan sonra, hücreye veri yazdırmadan önce SAY = SAY + 1 derseniz, en başta SAY = 1 demenize gerek kalmaz.
SAY değişkeni sayısal bir değer alacağından, bu değişken içeriği ilk başla Empty yani Boş veya 0'dır. Hücreye veriyi yazdırmadan önce SAY = SAY + 1 diyerek, 0 olan değişkene +1 ilave etmiş oluruz.
Aynı şekilde k = k + 1 için de geçerli.

 

[zafer.kargin]

ÜStadlar Ben Acemiyim.Sizden Ricam Boş Bir Excele Makro Yazsanız Ben Değerleri Yapıştırınca Otomatik Değişse Olurmu

 

[YUSUF44]

http://office.microsoft.com/tr-tr/excel-help/HP010342137.aspx

 

[zafer.kargin]

Üstadlar Beceremedim Boş Bi Excelde O Makroyu Yazamazmısınız.s

 

[Emir Hüseyin Çoban]

Üstadlar Beceremedim Boş Bi Excelde O Makroyu Yazamazmısınız.s

. . .

Dosyanız ektedir.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
https://yadi.sk/d/xXf8zwcgVvLUR

. . .

 

[zafer.kargin]

Hüseyin abi çok sağol ama bu deneme olandı aynı dosyayı tekrar atacağım gün içerisinde aynı şeyi yapıp yollarsan çokk sevinirimmm