• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

Çözüldü yazdığım koddaki inputumu yanlış yere atıyor ve sebebini bilmiyorum

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

cantaskin

Yeni Üye
Kullanıcı Bilgileri
Katılım
8 Eyl 2022
Mesajlar
2
Aldığı beğeni
0
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
Merhabalar. Uygulamam çok basit, "Launch Form" a basınca, çıkan tabloya yazılan inputları "database" sayfasında ilgili sütunlara aktarıp, 2. satıra girilmesi. Eğer 2. sütun doluysa, 2. sütundakileri aşağıdaki sütuna atıp yeni girilen bilgileri 2. sütuna atması. Programı açıp denerseniz ne sorun yaşadığımı anlarsınız, girdiğim inputlar kayıyor veya girmiyor. Ayrıca 1. sütunda da anlatamadığım bir sorun var. Yardımcı olabilirseniz çok sevinirim.
 

Ekli dosyalar

  • maaliyet 3.xlsm
    34.1 KB · Gösterim: 2
Çözüm
1) " EĞER 2. sütun doluysa, 2. sütundakileri aşağıdaki sütuna atıp yeni girilen bilgileri 2. sütuna atması."
Bu cümlede geçen bütün "sütun" sözcükleri aslında satır mı olacak. ?

2) her yeni kaydı 2. satır da mı görmek istiyorsunuz ?

Her iki soruya ben evet cevabı verdim. :)

Database sayfasında 1.sütun başlığı LAZER KESİM
fakat siz kodlarınızda .Cells(iRow, 1) = iRow - 1 ile sıra no vermeye çalışmışsınız.
Dolayısıyla sütunlar kaymış. Örneğin 2.sütun DAMLA TUTUCU ama sizin oraya işlediğiniz
veri LAZER KESİM bilgisi. vs.
txtBe yi kodlara eklemeyi unutmuşsunuz.
Sonuçta textboxlardaki verileri doğru adreslere göndermiyorsunuz.
En son kaydı 2.satırda görmek istiyorsunuz ?
Şimdi Database sayfasındaki bütün verileri silip
0 dan yeni...
İnceleyip dönüş yapınız.
 

Ekli dosyalar

  • maaliyet 3.xlsm
    29.2 KB · Gösterim: 2
1) " EĞER 2. sütun doluysa, 2. sütundakileri aşağıdaki sütuna atıp yeni girilen bilgileri 2. sütuna atması."
Bu cümlede geçen bütün "sütun" sözcükleri aslında satır mı olacak. ?

2) her yeni kaydı 2. satır da mı görmek istiyorsunuz ?

Her iki soruya ben evet cevabı verdim. :)

Database sayfasında 1.sütun başlığı LAZER KESİM
fakat siz kodlarınızda .Cells(iRow, 1) = iRow - 1 ile sıra no vermeye çalışmışsınız.
Dolayısıyla sütunlar kaymış. Örneğin 2.sütun DAMLA TUTUCU ama sizin oraya işlediğiniz
veri LAZER KESİM bilgisi. vs.
txtBe yi kodlara eklemeyi unutmuşsunuz.
Sonuçta textboxlardaki verileri doğru adreslere göndermiyorsunuz.
En son kaydı 2.satırda görmek istiyorsunuz ?
Şimdi Database sayfasındaki bütün verileri silip
0 dan yeni kayıt eklemeye başladığımızda tablo sıralaması
büyükten küçüğe doğru olacaktır. Varolan tabloyu silmeden kullanırsak
bir süre sonra tablonun bir kısmı büyükten küçüğe bir kısmı da
küçükten büyüğe sıralı hale gelecektir.
Bunun önüne geçmek için sıralama kodu ekledim.
İstediğiniz bu değilse düzeltilebilir.
Şimdilik bu kadar. Dosyanız ekte.
Kolay gelsin.
 

Ekli dosyalar

  • maaliyet 3.xlsm
    30.8 KB · Gösterim: 0
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Geri
Üst