Istenilen satirdaki veriyi baska sayfadaki forma aktarabilme

[firatcak]

Merhaba arkadaslar,

Sosyal hizmetlerde calisiyorum.
Personel eksikliginden dolayi vatandaslarin belli muracaatlarinda problemler oluyor.
Ekte gonderdigim dosyadaki isi cozebilirsem devamini kendim getirip cogu isi otomasyona sokabilecegim. Boylece siradan bilgisayar bilmeyen biri bile verileri girebilecek.

1) 1. sayfada (GIRIS) personel ilgili muracaatin tum verilerini giriyor.

2) GIRIS sayfasindaki butonla tum veriler tek satir halinde KONTROL sayfasina aktariliyor. Ama her butona tiklamada o an yazili veriler KONTROL sayfasina satir aktarilarak giriliyor ki tum basvurular KONTROL sayfasina islenebilmis olsun.

3)Bu sekilde diyelim 100 muracaat/veri satiri girilmis olsun. Personel daha sonra KONTROL sayfasina gelerek ornegin 45. satirdaki belli verileri bir BUTON yardimi ile farkli sayfalardaki farkli hucrelere aktarabilsin.
ORNEGIN; KONTROL sayfasindaki butonla o an satir numarasi secili olan (veya butona tiklaninca satir sayisi sorularak ) 45. satirdaki bilgiler BASVURU formuna islenebilsin ve ciktisini alabilsin. Daha sonra diyelim 56. satiri secsin ve yine ayni BUTONla BASVURU formuna islesin ve cikti alabilsin.

Bunun icin KONTROL sayfasinda mesela BASVURU butonu olur ve secili satirdaki BASVURU formuna islenecek bilgileri aktarabilir.
VE farkli farkli butonlarla KONTROL sayfasindaki farkli farkli AMA ayni satirdaki verileri farkli formlara isletip hepsinin ciktisini alabilsin.


Umarim anlatabilmisimdir. Inanin bu isi cozersem cok buyuk bir yuk ustumuzden kalkacak. Sizin onerilerinizi daha da gelistirip dedigim gibi farkli farkli formlara KONTROL sayfasindaki butonlarla aktarabilmek istiyorum.
SIMDIDEN COK COK tesekkur ederim. saygilarimla,

 

[mancubus]

aşağıdaki gibi deneyin.
1. satır ile "evrak sayı" altındaki rakam sayı'nın sonuna eklenmektedir.

Sub Liste_Aktar2()

Dim syfk As Worksheet, syfb As Worksheet
Dim sat As Long

Set syfk = Worksheets("KONTROL")
Set syfb = Worksheets("BASVURU")
sat = ActiveCell.Row

With syfb
    .Range("B7") = .Range("B7") & syfk.Range("C" & sat)
    .Range("B22") = syfk.Range("E" & sat)
    .Range("E22") = syfk.Range("F" & sat)
    .Range("G22") = syfk.Range("G" & sat)
    .Range("I22") = syfk.Range("H" & sat)
    .Range("J22") = syfk.Range("I" & sat)
    .Range("B25") = syfk.Range("J" & sat)
    .Range("B26") = syfk.Range("K" & sat)
End With

End Sub