Etiket düzenleme sistemi yardım....

[woodteacher]

Korhan hocam çok teşekkür ederim..
Çok güzel oldu tam istediğim gibi fakat bu sefer şöyle bir sıkıntı oldu...
ekte gönderdim dosyayı.....
M1 ve K1 şeklinde iki dosya ekledim çalışmaya....
makro bozuldu yapmadı işlemi....

 

[Necdet]

Nejdet hocam
MsgBox Sayfa.Cells(i, j).Offset(4, 1) bu satırı sildikten sonra düzeldi hepsini atıyor..
Çalışma istediğim gibi fakat Sadece E1'i tarıyor (EG)ye ekliyor.....Aynı şekilde E1 den E10 a ve
L1 den L10 a tüm ekleri taraması gerekiyor....

ASIL İSTEDİĞİM ÖRNEK ÇALIŞMA EKTE...

Sayfalar arasında ayrım yapmadım. Hepsini atar ancak sizin dediğiniz PARÇA ADI boş, YADA ( - ) olan bilgileri atmaz.

Ya siz beni anlamıyorsunuz ya da ben sizi anlamıyorum.

 

[woodteacher]

Nejdet hocam kusura bakmayın, Makro ile ilgili bilgisizliğime verin...
Sizlere çok teşekkür ederim gerçekten çok anlayışlı ve yardımseversiniz...
Hakkınız ödenmez..Çok teşekkür ederim herşey için...

Ekteki çalışmada sizin hazırladığınız makro var....
uyguladım fakat E1 den E10 kadar oldu...L1 den L10 a kadar görmedi....L.leri görmedi hocam

 

[Korhan Ayhan]

Merhaba,

#9 nolu mesajımdaki kodu yeniledim. Tekrar denermisiniz.

 

[woodteacher]

NECDET VE KORHAN hocam yardımlarınız için teşekkür ederim....
Çalışmanın son halini ekliyorum hocalarım...

Sizleri çok yordum hakkınızı helal edin değerli hocalarım....
Bu öğretmen arkadaşınıza bu konuda son bir yardımlarınızı esirgemezseniz çok sevinirim.
Benim tahminim hocam E.grubu ve L.grubu etiketlerde formül olduğu için sıkıntı oldu sonuçta.

Ekteki çalışmaya düğme ekleyerek sonbir düzenleme yapıp denerseniz sevinirim.

 

[Necdet]

Nejdet hocam kusura bakmayın, Makro ile ilgili bilgisizliğime verin...
Sizlere çok teşekkür ederim gerçekten çok anlayışlı ve yardımseversiniz...
Hakkınız ödenmez..Çok teşekkür ederim herşey için...

Ekteki çalışmada sizin hazırladığınız makro var....
uyguladım fakat E1 den E10 kadar oldu...L1 den L10 a kadar görmedi....L.leri görmedi hocam

Merhaba,

Adım Necdet, Nejdet değil.

8. mesajda kodları ve dosyayı yeniledim. Aceleden

Sayfa.Name = "L-*" Then

yazmışım. Oysa aşağıdaki gibi olmalıydı. Sizinde dikkatinizden kaçmış.

Sayfa.Name Like "L-*" Then

 

[woodteacher]

NECDET hocam çok özür dilerim .....Hatam için , hiç farketmemişim....

Makro çok güzel oldu tam istediğim sonucu verdi...
Fakat şöyle bir sıkıntı oldu , aldığı etiket gruplarına formül tanımlıyınca hata verdi..
Formüllü etiket grubunu ekliyorum hocam...Bakabilirseniz çok sevinirim....

 

[woodteacher]

NECDET ve KORHAN hocam
Her iki makroda çalıştı ...
Fakat şöyle bir sıkıntı oldu , aldığı etiket gruplarına formül tanımlıyınca hata verdi..
Formüllü etiket grubunu ekliyorum hocam...Bakabilirseniz çok sevinirim....

 

[Korhan Ayhan]

Merhaba,

Biz size cevap verdikçe siz sürekli yeni dosya ekleyip şurası olmadı diyorsunuz. Lütfen bundan sonraki sorularınızda bizlere tüm detayları açıklayınız. Bu şekilde başlık boşuna uzayıp gidiyor.

#9 nolu mesajımdaki kodu tekrar güncelledim. Denermisiniz.

 

[woodteacher]

Korhan hocam ve Necdet hocam ALLAH (c.c.) razı olsun sizlerden....
Çok uğraştırdım Sizi ve Necdet hocamı...Herşey için çok teşekkür ederim ...

Gönderdiğiniz son çalışma olmuştur.......

 

[Necdet]

Merhaba,

Kodları kısa yoldan yazayım dedim ama formüllü ve birleştirilmiş hücreler işin içinde yoktu.

Onları düzeltmek, hatasız hale getirmek için daha fazla uğraşmak gerekirdi, o yüzden vazgeçtim.

Korhan beyin kodlarını kullanabilirsiniz.

Bizimkide bir seçenek olarak kalsın, belki bu hatalar da bir fikir verebilir bu yöntemi kullanacak olan arkadaşlara.

 

[furkan_02]

merhaba arkadaşlar. iş yerinde zarf üzerine etiket yapıştıracağız. kırtasiyeden aldığımız etikete isim yazacağız. Etiket a4 kağıt boyunda alttan ve üstten 1 cm boşluk var. bir a4 boyu etikette toplam 16 adet etiket var. bir etketin boyutu yükseklik 3.5 cm, genişliği ise 10.3 cm. bu ölçülere uygun etiketi excelde veya wordde çizebilir miyiz. şimdiden teşekkürler kolay gelsin.