Seçilen kişinin satırında ilgili yerlere kayıt

İsmail Küçükşengün · 14 Şubat 2008

Merhaba;

Ekteki dosyamda, userformda da izah ettiğim gibi;

ComboBox ile seçilen kişiye ait tahsilat tarih ve miktarının, H sütunundan itibaren aranarak ilgili yerelere kaydı hususundaki yardımlarınıza şimdiden teşekkür ederim.

Selamlarımla.

Orion1 · 14 Şubat 2008

Ekli dosyayı deneyiniz.
Userform'u çalıştırınız.Eğer numara yoksa en alta yeni kayıt ekliyor.

İsmail Küçükşengün · 14 Şubat 2008

Sayın orion2;

Çok güzel olmuş. Teşekkürler.

Koddaki :
If sut < 9 Then sut = 8
İbaresi: 9. sütun boş ise 8 ve 9. sütuna kayıt yap anlamında değil mi?

(Sormamın sebebi , 130 sütundan oluşan çalışmamda, ödeme bilgileri 60 küsur sayıdan sonra başlıyor)

Çok teşekkürler.

Selam ve saygılarımla.

Orion1 · 14 Şubat 2008

kucuksengun' Alıntı:
Sayın orion2;

Çok güzel olmuş. Teşekkürler.

Koddaki :
If sut < 9 Then sut = 8
İbaresi: 9. sütun boş ise 8 ve 9. sütuna kayıt yap anlamında değil mi?

(Sormamın sebebi , 130 sütundan oluşan çalışmamda, ödeme bilgileri 60 küsur sayıdan sonra başlıyor)

Çok teşekkürler.

Selam ve saygılarımla.

Aslında dikkat ederseniz ben sut değişkenini 1 artıttırrak elde etmiştim.
Bu yüzden 9ncu değilde 8nci sütunun boş olup olmadığı sorgulanıyor.
İyi çalışmalar.

İsmail Küçükşengün · 14 Şubat 2008

Teşekkürler.

Orion1 · 14 Şubat 2008

kucuksengun' Alıntı:
Teşekkürler.

Rica ederim.

İsmail Küçükşengün · 14 Şubat 2008

Sayın Orion2;

Örneğinizi çalışmama uyarladığımda aşağıdaki kodu yazdım.

Private Sub CommandButton72_Click()
Dim sat As Long, k As Range, sut As Integer
If ComboBox13.Value = "" Then
MsgBox "Bir numara giriniz..!!", vbCritical, "DİKKAT"
ComboBox13.SetFocus
Exit Sub
End If
Set k = Range("A3:A65536").Find(ComboBox13.Value, , xlValues, xlWhole)
If k Is Nothing Then
sat = Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65534 Then
MsgBox "Satır doldu başka kayıt yapamazsınız..!!", vbCritical, "Dikkat"
Exit Sub
End If
Cells(sat, "A").Value = ComboBox13.Value

Cells(sat, "BT").Value = CDate(TextBox14.Value)
Cells(sat, "BS").Value = CDbl(TextBox1.Value)
Else
sut = Cells(k.Row, 256).End(xlToLeft).Column + 1
If sut < 72 Then sut = 71
If sut >= 255 Then
MsgBox "Sütun doldu.Kayıt Yapılmadı..", vbCritical, "Dikkat"
Exit Sub
End If
Cells(k.Row, "A").Value = ComboBox13.Value

Cells(k.Row, sut).Value = CDate(TextBox14.Value)
Cells(k.Row, sut + 1).Value = CDbl(TextBox1.Value)
End If
MsgBox "Kayıt Girildi..!!", vbOKOnly, "Kayıt"
End Sub

Çalışmamda, ilk ödeme mitarı BS, ilk ödeme tarihi BT sütununda başlayıp, son ödeme (23. ödeme miktar&#305

DK sütununda, son ödeme tarihi ise, DL sütununda bitiyor.
Fakat bundan sonra DM ve devamı sütunlarda da başka veriler var.

Yukarıdaki kodda, BS sütununa değil de, verilerin bittiği DS sütunundan itibaren yazıyor.

Yani anladığım kadarıyla, son dolu hücreden itibaren yazıyor.

Ödeme tarih ve miktarlarını, çalışmamın sonuna alsam mesele kalmayacak. Fakat, diğer formlara verilerin gelişi vs. bu 1-2 günümü alır ve çalışmam allak bullak olur.

Yukarıdaki kod, BS sütunundan enson DL sütunu nazara alınacak şekilde revize edilebilirse çok hayra geçecek.

Bir de bu kod ile yeni kayıt yapmayacağım. Sadece kayıtlı verilerle işlem yapacağım. Yeni kayıt için yazılan ibareler çıkartılabilir.

Çalışmamın örneğini ekleyemiyorum. Hacmi çok büyük.

Şimdiden çok teşekkür ederim.

Orion1 · 14 Şubat 2008

kucuksengun' Alıntı:
Sayın Orion2;
Örneğinizi çalışmama uyarladığımda aşağıdaki kodu yazdım.
Çalışmamda, ilk ödeme mitarı BS, ilk ödeme tarihi BT sütununda başlayıp, son ödeme (23. ödeme miktarı) DK sütununda, son ödeme tarihi ise, DL sütununda bitiyor.
Fakat bundan sonra DM ve devamı sütunlarda da başka veriler var.

Yukarıdaki kodda, BS sütununa değil de, verilerin bittiği DS sütunundan itibaren yazıyor.

Yani anladığım kadarıyla, son dolu hücreden itibaren yazıyor.

Ödeme tarih ve miktarlarını, çalışmamın sonuna alsam mesele kalmayacak. Fakat, diğer formlara verilerin gelişi vs. bu 1-2 günümü alır ve çalışmam allak bullak olur.

Yukarıdaki kod, BS sütunundan enson DL sütunu nazara alınacak şekilde revize edilebilirse çok hayra geçecek.

Bir de bu kod ile yeni kayıt yapmayacağım. Sadece kayıtlı verilerle işlem yapacağım. Yeni kayıt için yazılan ibareler çıkartılabilir.

Çalışmamın örneğini ekleyemiyorum. Hacmi çok büyük.

Şimdiden çok teşekkür ederim.

aşağıdaki dodları kullanabilirsiniz.
Ancak burada en son DJ sütununa kadar miktar ve tarih girebileceksiniz.
DJ ve DK sütunlarınada veri girilecek olursa sut değişkeni için yazılan kod sonucu doğru dödürmeyip 1 olarak dödürüyor.
Aşağıdaki gibi kullanınız.

Kod:

Private Sub CommandButton72_Click()
Dim sat As Long, k As Range, sut As Integer
If ComboBox13.Value = "" Then
MsgBox "Bir numara giriniz..!!", vbCritical, "DİKKAT"
ComboBox13.SetFocus
Exit Sub
End If
Set k = Range("A3:A65536").Find(ComboBox13.Value, , xlValues, xlWhole)
If k Is Nothing Then
sat = Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65534 Then
MsgBox "Satır doldu başka kayıt yapamazsınız..!!", vbCritical, "Dikkat"
Exit Sub
End If
Cells(sat, "A").Value = ComboBox13.Value

Cells(sat, "BT").Value = CDate(TextBox14.Value)
Cells(sat, "BS").Value = CDbl(TextBox1.Value)
Else
sut = Cells(k.Row, 115).End(xlToLeft).Column + 1
If sut < 72 Then sut = 71
If sut >= 114 Then
MsgBox "Sütun doldu.Kayıt Yapılmadı..", vbCritical, "Dikkat"
Exit Sub
End If
Cells(k.Row, "A").Value = ComboBox13.Value

Cells(k.Row, sut).Value = CDate(TextBox14.Value)
Cells(k.Row, sut + 1).Value = CDbl(TextBox1.Value)
End If
MsgBox "Kayıt Girildi..!!", vbOKOnly, "Kayıt"
End Sub

İsmail Küçükşengün · 14 Şubat 2008

Sayın Orion2;

Çok çok teşekkürler.

Selamlar ve iyi Akşamlar.

Orion1 · 14 Şubat 2008

kucuksengun' Alıntı:
Sayın Orion2;

Çok çok teşekkürler.

Selamlar ve iyi Akşamlar.

Rica ederim.
İyi akşamlar.

Seçilen kişinin satırında ilgili yerlere kayıt

İsmail Küçükşengün

Özel Üye

Orion1

Uzman

İsmail Küçükşengün

Özel Üye

Orion1

Uzman

İsmail Küçükşengün

Özel Üye

Orion1

Uzman

İsmail Küçükşengün

Özel Üye

Orion1

Uzman

İsmail Küçükşengün

Özel Üye

Orion1

Uzman