ya arkadaşlar, benim mantığım almıyor mu nedir, ya çok basit bi problem, çözümü basit, uyguluyorum bütün öğrendiklerimi ama olmuyor, kafayı yedirtecek bu vba' ya çok ayar oluyorum, ya kodun sonuna bir boşluk ve kesme işareti koyuyorum tamam sorun yok ama alt taraftan devam edemiyorum, bütün öğrendiklerimi uyguluyorum nafile, acaba bunun bir ayarı falan mı var, yardımcı olursanız çok sevinirim, benimkinde olmuyor.

merhaba arkadaşlar,
1.kod ) aşağıdaki 1.kod ile renk numarasını sorgulatıyorum, eğer liste kutusundan aynı anda farklı renkler seçildiyse mesaj veriyor,
[vb]Rnk_no = ""
Dim varItm As Variant
For Each varItm In Me.Liste25.ItemsSelected
X = Me.Liste25.Column(10, varItm)
If Rnk_no = "" Then Rnk_no = X

If Rnk_no <> "" Then
If Rnk_no = X Then
Rnk_no = X
Else
MsgBox "Farklı renkleri aynı anda seçtiniz. Aynı renk ürünleri seçiniz!!!", vbCritical, "Farklı renk nolu ürünler var"
Exit Sub
E

kolay gelsin arkadaşlar, 
siparis_kodu_tablosu'ndaki siparis_kodu alanına
SP=SİPARİŞ
21=2021

SP-21-9' dan sonra 2022 yılına geçtiğim için
sıradaki numaralar otomatik verdirilebilir mi?

SP-22-1
SP-22-2
SP-22-3 GİBİ

2023 E GEÇİNCE DE
SP-23-1
SP-23-2 GİBİ

Merhaba arkadaşlar, aşağıdaki kodum kendi bilgisayarımda gayet düzgün çalışıyor, ama farklı bilgisayarda çalışmıyor, nedeni ne olabilir acaba? çok kafa yordum da bulamadım, yardımcı olursanız çok sevinirim teşekkürler.

Not: bu koda kadar olan kısımlar (iç içe klasör oluşturma) her iki pc de de çalışıyor ama burada pdf yi oluşturmuyor.

ActiveWorkbook.Save
With Worksheets("hizmetIsleriKabulTutanagi")
        .ExportAsFixedFormat 0, dosyayolu & Me.avansYili & "\" & Me.konusu & "\" & Me.ava

Ürün koduyla ürün çağırıyorum.İlk satırdakinde geliyor.Diğerlerinde kodu var ama diğer veriler yok.Teşekkürler.

merhaba arkadaşlar uygulamada ilk iki kayıtta sıkıntı yok ama 3 kayitta ve yeni kayıt yaptiğimda şu hatayi aliyorum bunu nasıl çözebilirim ?

[Resim: https://i.hizliresim.com/4ttf2g6.jpg]

teşekkürler.