Çözüldü girilen veriye barkoddaki gibi kontrol hanesi ekleme

[Safih00]

Merhaba;
Şöyle bir sorunum var. Excele veri girip bunu barkodun altındaki yazılara dönüştürücem ama barkod olmayacak sadece yazı olacak. Barkod olmadığı için kontrol hanesini otomatik vermiyor sadece veriyi veriyor. Ben yazdığım rakamların sonuna kontrol hanesini vermesini istiyorum.
Örneğin "0324840071201" verisini girdiğim zaman bana otomatik olarak "8" rakamını vermesi lazım. Tabii bu bir kurala göre hesaplanıyor. Ufak bir araştırma sonucu şöyle bir bilgi buldum. Bu hesabı excelde yaptırabilir miyim?

 

[Safih00]

Buyrun sayın kralım

Örnek dosyaya ekleyeceğim ekstra birşey olmadığı için yazdığım metni excele yazıp eke koydum. Sonuca ulaşmak için ise bu resim herşey demek. Çünkü bir barkodda kontrol hanesinin nasıl hesaplandığını anlatıyor ve benim ihtiyacım olan şey bu hesabı excelde yapabilmek. Tabii mümkünse. Eke sadece 1 satır koydum bu 10 satır bile olabilir.
Desteğiniz için teşekkür ederim.

 

[kralım]

Deneyiniz. Lütfen dönüş yapınız.

 

[askan]

Örneği inceleyiniz verdiğiniz bilgilere göre düzenlendi

 

[Alpi]

Merhaba.
Alternatif

Bir modüle oluşturun ve aşağıdaki kodu modüle kopyalayın.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Kullanımı normal Excel fonksiyonu gibi
=BarkodKontrol(A1) şeklinde kullanabilirsiniz.
yada kod içinde kullanacaksanız
MsgBox BarkodKontrol(Range("A1"))

 

[Safih00]

Örneği inceleyiniz verdiğiniz bilgilere göre düzenlendi

Tam olması gerektiği gibi ama bunu vba da yazabilir miyiz

 

[Safih00]

Merhaba.
Alternatif

Bir modüle oluşturun ve aşağıdaki kodu modüle kopyalayın.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Kullanımı normal Excel fonksiyonu gibi
=BarkodKontrol(A1) şeklinde kullanabilirsiniz.
yada kod içinde kullanacaksanız
MsgBox BarkodKontrol(Range("A1"))

bunu modul oluşturup içine yazdım ama çalıştırmadım

 

[askan]

Tam olması gerektiği gibi ama bunu vba da yazabilir miyiz

yazılır. Vaktim olduğunda bakabilirim diğer arkadaşlar umarım yardımcı olurlar.

 

[Safih00]

Buyrun sayın kralım

Örnek dosyaya ekleyeceğim ekstra birşey olmadığı için yazdığım metni excele yazıp eke koydum. Sonuca ulaşmak için ise bu resim herşey demek. Çünkü bir barkodda kontrol hanesinin nasıl hesaplandığını anlatıyor ve benim ihtiyacım olan şey bu hesabı excelde yapabilmek. Tabii mümkünse. Eke sadece 1 satır koydum bu 10 satır bile olabilir.
Desteğiniz için teşekkür ederim.

sayın kralım barkod sonucunun 8 olması lazım ve bunu vba da yapabilir miyiz

 

[Alpi]

bunu modul oluşturup içine yazdım ama çalıştırmadım

A1 deki barkodu kontrol eder.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Safih00]

A1 deki barkodu kontrol eder.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Böyle Hata alıyorum

 

[Alpi]

Böyle Hata alıyorum




Ekli dosyayı görüntüle 31711

Düzelttim.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Safih00]

Düzelttim.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

ben yanlış birşey ypaıyorum sanırım type msmatch hatası veriyor

 

[Patron]

Deneyiniz
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Alpi]

A1 de 0324840071201 yazıyorsa hata vermemesi gerekir.
Dosya ekte

 

[Safih00]

A1 de 0324840071201 yazıyorsa hata vermemesi gerekir.
Dosya ekte

kusurma bakmayın a1 i hiç farketmedim a2 deki metne deniyordum.

kod güzel çalışıyor. Fakat bunu 1 satır için değil de birçok satır için yapabilir miyiz? Satır sayısı değişkenlik gösterebilir.

Eke birkaç tane çoğaltıp koydum.

Yardımınız için teşekkür ediyorum

 

[Alpi]

Sonucu B ye yazar.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Safih00]

Sonucu B ye yazar.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Kod çalışıyor ama doğru sonuçları vermiyor

 

[Alpi]

Dosya ekte

 

[Safih00]

Dosya ekte

muhteşem çalışıyor vakitinizi ayırdığınız için çok teşekkür ederim herkese

sayın Alpi

gittiğiniz yolu anlamam ve kendimi geliştirmem açısından biraz anlatabilme şansınız var mı acaba?