Veri Aktarma

[msinan987]

Arkadaşlar göndermiş olduğum dosya bu forum sitesinden indirmiş olduğum bir dosya.Bu dosya veri aktarma ile illgili. Sayfa1 deki A sütünunda ki herhangi bir hücreye çift tıkladığımızda, Sayfa2 deki A1 hücresinden başlayarak aktarma yapıyor. Benim yapmak istediğim ise sayfa1 de A sütünundaki bilgileri nasıl Sayfa2 ye aktarıyorsak, Sayfa1 deki B,C,D,E sutunlardada bilgi olsun ve biz bu bilgileri A sutununda nasıl aktarma yapıyor isek diğrer sutunlarıda sayfa2 ye aknı şekilde aktama yapabilirmiyiz. Ayrıca sayfa1 deki herhangi bir sutundaki ve hücredeki bir bilgiyi, sayafa2 deki istediğimiz sutun ve hücreye aktarma yapabilirmiyiz.bu konuda yardıncı olursanız sevinirim.

 

[Necdet]

Merhaba,

Siz kendi örnek dosyanızı eklerseniz çözüme daha çabuk ulaşılabilir.

 

[SanaLSukuL]

Sn. msinan987 güzel bir örnek vermişsiniz
bu örnekte birde üstüne tıklanan o sayfadan silinip diğer sayfaya gönderilse daha müthiş olurmuş bu örneği bir de bu tip gönderirseniz sevinirim
Saygılar....

 

[msinan987]

Örnek dosyayı gönderiyorum. Bu dosyadada açıklam yaptım.

 

[msinan987]

Arkadaşlar benim dosyayla ilgilen kimse yokmu.iki ayrı dosya gönderdim her ikisindede yapmak istediğimi açıladım.

 

[rekkezum]

aynı konu ıle ılgılı benımde yardıma ıhtıyacım var.. fakat bunun daha güzel olenı bu ıslemı bır dugme ıle yapabılmek nasıl olurdu ama....

 

[ünal karadavut]

bu sorunun cevabı yapılırsa çok işimize yarar düşüncesindeyim.
lütfen bilenler bu işe bir göz atarlarsa sevinirim.

 

[Necdet]

Merhaba,

Sorunuzu tam olarak anladım mı bilmiyorum, dosyayı inceleyiniz.

Aşağıdaki kodları Sayfa1'in kod bölümüne kopyalayıp deneyebilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Intersect(Target, [A:D]) Is Nothing Then Exit Sub
Set s2 = Sheets("Sayfa2")
SatırNo = s2.[C65536].End(3).Row + 1
If SatırNo < 5 Then SatırNo = 5
Range("A" & Target.Row & ":D" & Target.Row).Copy s2.Range("C" & SatırNo)
Son:
End Sub

 

[nebilim]

Birden fazla sayfada, belli bir sütundaki değerlere göre veri toplama ve aktarma

Merhaba benim de benzer bir sorunum var. Ekteki dosyada açıklaması mevcut, ustalar bi el atıp yol yordam gösterirse sevindirik olurum.

Son taşınır yönetmeliğine göre taşınır defterleri hazırladım (nasıl hazırladım bir de bana sorun ) Şu lanet taşınırları bir de zimmetlemek gerek, onun için de defterlerdeki L sütununu kullanmak istiyorum. Taşınırın kaydedildiği satırdaki L sütununa nereye zimmetleyeceğimi yazıyorum ve yazdığım yer için daha önceden zimmet belgesi varsa oraya ekliyor yoksa kopyalayıp oluşturuyor. İki-üç taşınır için kolay oluyor fakat 50+ taşınır defteri ve 32 oda var. bir makroyla bunu yapmaya çalıştım yaptığım makrolu çalışma bağlantısı -> http://www.excel.web.tr/showthread.php?t=44235 fakat beceremedim yardım ve yöntem rica ediyorum.

Saygılar

 

[msinan987]

Necdet Yesertener arkadaşım,öncelikle ilillendiğin için çok teşekkür ediyorum.Eklemiş oduğun dosyayı inceledim.Gerçekten güzel hazırlamışsın. Fakat benim esas yapmak istediğim olay şu: safa1 deki verilerden herhangi bir hücreyi çift tıkladığımda o hüceredeki bilgi, sayfa2 deki istediğm herhangi bir hücreye,mesela yine C5 hücresine aktarsın.Kısacası sayafa2 ye aktaracağım bilgiyi kendim belirleyim. Şimdiden teşekkürler.