Numara hazırlama

[erk-kan]

Merhaba daha önce yardım aldığım bir konu vardı ekte bir dosyam var çalışıyodu ama şimdi hata veriyo yardım

 

[Husgvarna]

Merhaba daha önce yardım aldığım bir konu vardı ekte bir dosyam var çalışıyodu ama şimdi hata veriyo yardım

Merhaba.

Dosyanızda 2. satır ile 372. satır arasında boşluk var.

 For i = 1 To[COLOR="Red"] Range("A65536").End(3).Row[/COLOR]

Range("A65536").End(3).Row = 30000
For döngüsü 30000. satıra kadar gitmek istiyor ama 2. satırdan sonrası boş olduğu için hata veriyor.
372. satırdan 30000. satıra kadar silerseniz hata vermeden çalışır.

 

[erk-kan]

zaten hepsi boştu başlangıç sayısını yazdığımda hazırla dediğimde o bana hepsini hazırlıyordu

 

[chngrcn]

barkod hazirlatma makrosu mu bu ?

 

[Husgvarna]

zaten hepsi boştu başlangıç sayısını yazdığımda hazırla dediğimde o bana hepsini hazırlıyordu

Sizin dosyanızın 9. satırdan 30000. satıra kadar temizlenmiş hali aşağıdaki linkte incelermisiniz hata verecekmi?

372. satırdan 30000. satıra kadar silerseniz hata vermeden çalışır.

veya 372. satıra kadar boş satırları silin kodlarda bir hata yok.


http://www.dosya.tc/server10/2kCyCB/mod97_1.zip.html

 

[erk-kan]

evet barkod için kullancam

 

[erk-kan]

evet şimdi çalışıyo eline sağlık sayıyı 1 hane artırmak için ne yapmalıyım

 

[Husgvarna]

evet şimdi çalışıyo eline sağlık sayıyı 1 hane artırmak için ne yapmalıyım

Şöyle olabilir.

 Sub onalti()
    Dim Syl(1 To 8)
    For i = 1 To Range("A65536").End(3).Row   
    For a = 1 To 8
    Syl(a) = Mid(Cells(i, "A").Value, a, 1) * 1
    Cells(i, a + 1).Value = Syl(a)
    Next a
    
    
    For b = 2 To 6 Step 2
    If Len(Syl(b) * 2) = 2 Then
    Syl(b) = Mid(Syl(b) * 2, 1, 1) * 1 + Mid(Syl(b) * 2, 2, 1) * 1
    Else
    Syl(b) = Syl(b) * 2
    End If
    Next b
    
    deger = (Syl(1) + Syl(2) + Syl(3) + Syl(4) + Syl(5) + Syl(6) + Syl(7) + Syl(8)) * 1
    
    algrt = (Int((deger / 10) + 1) * 10) - deger
    
    If algrt = 10 Then
    algrt = 0
    End If

    Cells(i, "j").Value = algrt
    Cells(i, "k").Value = "'" & Cells(i, "A").Value & algrt
    Next i
    End Sub