kodlara göre ilgili sayfalara taşımak

[kadr]

ekteki örnekteki gibi koda göre yada seçerek ilğili sayfalara nasıl taşıma yapıp altalta yazdırabiliriz açıklama ekte mevcut

 

[kadr]

arkadaşlar bu sorunun cevabı mümkün değilmi siz uzman arkadaşlar bu konuda ne diyorsunuz

 

[conari]

Aktarmak istediğiniz satırın C sütününu çift tıklayın
Aktarılır ve satır silinir.

Aktarılacak sayfaların var olduğu var sayılmıştır.

 

[Merhum İdris SERDAR]

arkadaşlar bu sorunun cevabı mümkün değilmi siz uzman arkadaşlar bu konuda ne diyorsunuz

http://www.excel.web.tr/showthread.php?t=20271&highlight=sayfalara

Buradaki dosyalara bakın.

.

 

[kadr]

arkadaşlar cevaplarınız için teşekkürler yanlız benim yapmak istediğim örnektede anlattığım gibi aynı kodlu araç için birden fazla harcama yapıldıysa aynı faturada gösteriliyor ve g sutunundan j sutununa kadar veri oluyor benim sorunun bu yarım sayılan satırı nasıl aktarırım bire bir (aktarma yaptığımda veri yokmuş gibi alğılayıp üstüne yazıyor bu satırın) conari ve yurttas kardeşler ilğilenirseniz sevinirim

 

[conari]

arkadaşlar cevaplarınız için teşekkürler yanlız benim yapmak istediğim örnektede anlattığım gibi aynı kodlu araç için birden fazla harcama yapıldıysa aynı faturada gösteriliyor ve g sutunundan j sutununa kadar veri oluyor benim sorunun bu yarım sayılan satırı nasıl aktarırım bire bir (aktarma yaptığımda veri yokmuş gibi alğılayıp üstüne yazıyor bu satırın) conari ve yurttas kardeşler ilğilenirseniz sevinirim

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, [c2:c10000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
Set s1 = Sheets("GİRİŞ")
Set s2 = Sheets(ActiveCell.Value)
[COLOR=red]sat = s2.[I65536].End(3).Row + 1  '/ parasal hücreyi son satır olarak aldık.[/COLOR]
s2.Range(s2.Cells(sat, 1), s2.Cells(sat, 9)).Value = s1.Range(s1.Cells(Target.Row, 1), s1.Cells(Target.Row, 9)).Value
Application.EnableEvents = False
Target.EntireRow.Delete Shift:=xlUp
Application.EnableEvents = True
Set s1 = Nothing
Set s2 = Nothing
End Sub

Kodu bu şekilde değiştirin ve boş olan c sütünlarınıda doldurun
tek tıklama isterseniz biraz vaktimi alacak ondan dolayı şu an cevap veremiyorum.

 

[kadr]

conari kardeş gene muthişsin kodlar problemsiz yanlız çok oldu demezsen satır silinmesın ve veri giriş sayfasında veriler kalsın sadece mesaj versin taşındı diye dersek kodlarda nasıl bir değişiklik yapmamız gerek şimdiden teşekkürler

 

[conari]

Tek hücreye tıklayarak alttaki boş satırlarıda aktaran kod.

Pardon istememişsin kaldırdım.
isteğine göre ayarlmaya çalışayım.

 

[conari]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, [c2:c10000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
Set s1 = Sheets("GİRİŞ")
Set s2 = Sheets(ActiveCell.Value)
son = [I65536].End(3).Row
For i = ActiveCell.Row To son
If Cells(i, 3) <> "" And Cells(i, 3) <> ActiveCell.Value Then Exit Sub
sat = s2.[I65536].End(3).Row + 1
s2.Range(s2.Cells(sat, 1), s2.Cells(sat, 9)).Value = s1.Range(s1.Cells(i, 1), s1.Cells(i, 9)).Value
Next i
Set s1 = Nothing
Set s2 = Nothing
End Sub

Kodları bu şekilde değiştir.
Çift tıkladığın satır ve varsa altındaki boş satırlar(sıradaki dolu hücre aynı kod ise oda aktarılır) silinmeden aktarılır.

 

[kadr]

conari kardeş çok teşekkürler yardımların için kodlar problemsiz

 

[kadr]

conari bir sorum daha olacakti sadece e sutunundan i sutununa kadar tasimak istersek nasil olacak
birde veri sayfasinin yedeklersek nasil bir islem yapmaliyiz tesekkurler

 

[conari]

 s2.Range(s2.Cells(sat, 1), s2.Cells(sat, 9)).Value = s1.Range(s1.Cells(i, 1), s1.Cells(i, 9)).Value
Next i

Kısmını

 s2.Range(s2.Cells(sat, [COLOR=red][B]5[/B][/COLOR]), s2.Cells(sat, 9)).Value = s1.Range(s1.Cells(i, [COLOR=red][B]5[/B][/COLOR]), s1.Cells(i, 9)).Value
Next i

Olarak değiştir. 5 Numarası E sütununun numarasıdır.
Yedekleme derken neyi kastettiniz "Giriş" sayfasında silme yapmıyoruz.
İstersen kodun altına

Workbook.save

yaz Aktarsın ve Kaydetsin.

 

[kadr]

conari kardes verdigin kodu uyguladim yanliz 5 sutundan baslayarak bastan itibaren 5 sutun tasiyor

birde giris sayfasini her ay degisecek fakat bu degisimlerde toplu olarak giris1 yedek sayfasinda kaydedilecek ilgilenirsen sevinirim

 

[conari]

Bir Yedel Al butonu ekledim
Giriş sayfasındaki bilgileri Yedek sayfasında aktarıyor.

Diğer dediğin ilginç çünkü bende doğru çalışıyor.

Son hali ekte.

 

[kadr]

conari kardeş teşekkür yedekleme problemsiz yanlız aktarılan sayfalarda a sutunundan ve istediğimiz satırdan da başlatmamız mümkünmü(a,b,c,d)sutunları boş geliyor ilgi ve alakan için teşekkürler.