• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü İlgili Değerin Altına Kayıt Ekleme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
M

Mtudes

Yeni Üye
Katılım
30 Ağu 2021
Mesajlar
270
Çözümler
1
Aldığı beğeni
97
Excel V
Office 2016 TR
Konu Sahibi
Merhaba
Firmaekle userformu combobox1 değerini firmalar sayfası E sütununda bulup alttan ilk boş satıra textbox1 değerini ,onun hemen karşısındaki 13. sutunada textbox2 değerini kayıt edip gönderiyorum.
Yalnız şöyle bir sorun var: Combobox1 den seçtiğim değerin altında en az 1 firma ekli değilse onun altına textbox1 ve textbox2 değeri kayıt edemiyorum.
örnek:Botaş,il özel idaresi ve iski ye kayıtlı firma ekli olmadığı için oraya kayıt yapamıyorum .Diğerlerinde ise kayıtlı firma olduğu için kayıt yapabiliyorum .
İlgili Kod aşağıdadır:Örnek dosya ektedir .
Yardımcı olursanız sevinirim .
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
hızlıca baktığımda bazı küçük hatalar var
1- anaform da ComboBox1 - rowsource firmalar!a1:a8 olmalı ki diğer firmalada görünsün
2- firmalar sayfasında tek bir kolonda tüm firmaları yönetmeye çalışmışsınız ama kim kimin belli değiller
Ör: aşağıdaki gibi kolonlara bunları ayırıp bulmayı da bu kolonlara göre yaparsanız istediğiniz sonuçları alabilirsiniz.
YOL VE YAPIM BAŞMÜHENDİSLİĞİprojeÜSTYAPI BAŞMÜHENDİSLİĞİproje
abcsxsxkkfddfggr
ssgdgfgrgrd
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
15 e yakın gönderen birim olduğundan çok fazla alan kaplayacak olmasından dolayı alt alta düşündüm.Aslında işimi de görüyor.Ama Gönderen birim altında firma ekli olmadığında proje sütunu boş kaldığından dolayı ilgili yere veri gönderemiyor .Bunu koda dökemedim .
 
Olumlu oy 0 Negatif oyla
Refaz' Alıntı:
Rows.count
Genişletmek için tıkla...
Aslında burası yanlış oldu galiba son satırda denemiştim .Oun yerine alttaki kodu ekleyebilirsiniz kafadan yazacağım hata olabilir ve deneyemedim ama o mantıkta olmalı.Yada bir döngü ilede bulunabilir ama deneyecek zamanım yok yarın akşama kadar.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Konu Sahibi
Denediğiniz şekildede ekliyor ama E sütunundaki bazı başmühendislikleri görmeyip başka başmühendisliğin altına kayıt ediyor.
 
Olumlu oy 0 Negatif oyla
Mtudes' Alıntı:
Denediğiniz şekildede ekliyor ama E sütunundaki bazı başmühendislikleri görmeyip başka başmühendisliğin altına kayıt ediyor.
Genişletmek için tıkla...
Eğer combodaki bulunursa ona göre eklemesi kerekirdi ama hatalı yamış olabilirim.
Kac değişkeni ile bulununca dögü kurup ilk bulunan boş satıra eklettirilebilinir ama dediğim gibi zamanım yok ama yinede mobilden kod yazayım yanlış olmazsa.
Alttaki kodu önceki verdiğim kodu silip bunu ekleyin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Eğer combodaki bulunursa ona göre eklemesi kerekirdi ama hatalı yamış olabilirim.
Kac değişkeni ile bulununca dögü kurup ilk bulunan boş satıra eklettirilebilinir ama dediğim gibi zamanım yok ama yinede mobilden kod yazayım yanlış olmazsa.
Alttaki kodu önceki verdiğim kodu silip bunu ekleyin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Ekliyor ama iski yi görmüyor.
Ben biraz uğraşayım en iyisi ...Olmadı siz müsait olduğunuzda tekrar bakarsınız .Teşekkür ediyorum.
 
Olumlu oy 0 Negatif oyla
Mtudes' Alıntı:
Ekliyor ama iski yi görmüyor.
Ben biraz uğraşayım en iyisi ...Olmadı siz müsait olduğunuzda tekrar bakarsınız .Teşekkür ediyorum.
Genişletmek için tıkla...
Abey Tr karakterden dolayı yani büyük i olduğu için o bendede görmemişti.Onun için replace ile kod vardı ucase ile birlikte.Bir araştırın.
Yada kodun en üst kısmına (global alalan)
Option compare text
Ekleyin bilmem olurmu.
 
Olumlu oy 1 Negatif oyla
Yada match yerine find ile bulun bir sürü örnek var.Yada İSKİ yerne iSKi olarak combo ve sayfaya ekleyin.
 
Olumlu oy 1 Negatif oyla
Konu Sahibi
iski yi silip Iskı olarak kayıt ettim sorunsuz çalıştı.Kodun başına Option compare text yazıp İSKİ yi yazınca yine olmadı .En son Option compare text i sildim İSKİ yii olduğu gibi kabul ettii .Şuan sorunsuz çalışıyor.
 
Olumlu oy 0 Negatif oyla
Tamam abey.Büyük İ ler problem hezaman için.Ben yarın find ilerim yada şimdi ekleyeyim yanlış olmazsa

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Bu kodu ekleyin match olanı silin ve döngüdeki kac yerine kac.row yazın.Belki find Tr karaktere takılmaz.
 
Olumlu oy 1 Negatif oyla
Mtudes' Alıntı:
On Error Resume Next
Genişletmek için tıkla...
Mtudes' Alıntı:
kac = WorksheetFunction.Match(ComboBox1, frm.Range("E:E"), 0)
Genişletmek için tıkla...

Mtudes' Alıntı:
If kac = Empty Then MsgBox "Başmühendislik bulunamadı." & vbCrLf & "Kayıt yapılmadı.", vbInformation, "DİKKAT": Exit Sub
Genişletmek için tıkla...

Mtudes' Alıntı:
ss = frm.Cells(kac, 5).End(xlDown).Row +
Genişletmek için tıkla...
Bu kodları silebilirsiniz önceki mesajda yazdığımı uygularsanız.iyi geceler abey.
 
Olumlu oy 1 Negatif oyla
Tamam abey yarın unutmazsam kodu Pc de yazıp denerim olmadı başka yoldan hallederiz.
 
Olumlu oy 1 Negatif oyla
Mesela İSKİ olan kelimenin başında tek tırnak var onu silin.
Birde sonunda boşluk varonun için trim kullandım.
Alttaki kod çalıştı.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Olumlu oy 1 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst