Bir Satırdaki Verileri Kayıt Numarasına Göre Belirli Sütundan Başlayıp Soldan Sağa 3'erli Gruplar Halinde Alıp Listboxa Alt Alta Yazdırma

[blue06900]

dosya ekte

İndir maas

Dosyayı indir maas

dosya.co

İndir dosya

Dosyayı indir dosya

dosya.co

Maaş tahakkuk formundan kaydet butonuna basınca veriler kaydedilip maas tahakkuku listbox una eklenmesi için gerekli formülü yazamadım yardımlarınızı rica ediyorum.

 

[YUSUF44]

Cepten baktığımdan dosyalarınızı inceleyemedim ama dosya isminden anladığım kadarıyla bunlar resim dosyası. Daha sağlıklı ve hızlı çözüm için örnek excel dosyası paylaşmanızı öneririm.

 

[blue06900]

hocam fotoğraflara bakınca anlarsınız.

If frmMaasTahakkuk.txtPerNo.Value = frmPerMaas.txtPerNo.Value Then
End If
'frmPerMaas.txtPerNo.Value = lstMaasTahakkuk.List(lstMaasTahakkuk.ListIndex, 0)
Set s1 = Sheets("PERSONELLISTE")
son = s1.Cells(Rows.Count, "A").End(3).Row
frmPerMaas.lstMaasTahakkuk.Clear
'sat = lstPerListesi.ListIndex + 2
sonsut = s1.Cells(son, Columns.Count).End(xlToLeft).Column
a = 0
For i = 10 To sonsut Step 3
frmPerMaas.lstMaasTahakkuk.AddItem
frmPerMaas.lstMaasTahakkuk.List(a, 0) = a + 1
frmPerMaas.lstMaasTahakkuk.List(a, 1) = s1.Cells(sonsut, i)
frmPerMaas.lstMaasTahakkuk.List(a, 2) = s1.Cells(sonsut, i + 1)
frmPerMaas.lstMaasTahakkuk.List(a, 3) = s1.Cells(sonsut, i + 2)

a = a + 1
Next

bu formülle sadece sayıları 1,2,3,4... diye yazdırıyor

 

[YUSUF44]

İnşallah anlayan çıkar.

Siz yine de benim tavsiyeme uyun.