günlük girişlerin ilgili çalışma sayfalarına aktarıl

[kemalozgen]

merhaba
ekte gönderdigim dosyada 100 kod numarası yazıldıgında 100 isimli çalışma sayfasına gönderiyor. benim istedigim 100 kod numarası girildiginde x isimli çalışma sayfasına aktarması.şimdiden teşekkürler

 

[Levent Menteşoğlu]

x isimliden kastınız nedir? yani dosyada x isimli bir sayfa mevcut olup onamı aktarılacak.

 

[kemalozgen]

evet

 

[Levent Menteşoğlu]

Yukarıda eklediğiniz dosyadaki kodu silin ve yerine aşağıdaki kodu kopyalayın. (kodu görmek için Alt+F11). Yalnız dosyanızda x isimli bir sayfa yok ekleyin aksi takdirde kod hata verecektir.

[vb:1:d53e6412e6]Sub aktar()
Sheets("x").[a365536].ClearContents
Range("a3" & [a65536].End(3).Row).Copy
Sheets("x").[a3].PasteSpecial
Application.CutCopyMode = False
MsgBox "aktarma işlemi tamamlandı"
End Sub
[/vb:1:d53e6412e6]

 

[kemalozgen]

sayın leventm ilginize teşekkür ederim.
ama benim bu konudaki bilgi eksikligim yüzünden sizi yanlış yönlendirdim.
benim ögrenmek istedigim:
kod yazan sutuna 100 yazdıgımda satırdaki bilgiler x sayfasına
kod yazan sutuna 200 yazdıgımda satırdaki bilgiler y sayfasına aktarılsın
ve bunun gibi birçok sayfa ve kod oluşturmak istiyorum.
yardımınızı bekliyorum

 

[Levent Menteşoğlu]

Bunu neden istediğinizi anlayamadım. Sayfa adını kod adı ile tanımlamanız makro yazımını çok kolaylaştırıyordu. Þimdi yüzlerce kod varsa yüzlerce satırlık kod yazmak gerekirki bence bu çok gereksiz olur.

 

[kemalozgen]

sayın leventm öneriniz dogrultusunda devam edecegim
ilginize teşekkürler

 

[hikmet]

sn.leventm, ekteki örneği inceledim ve bu soruya ile alakalı bir soru sormak istiyorum aynı durumda iki değişik veri sayfası olsaydı bu iki sayfada aynı kodlu bilgileri o kodun bulunduğu sayfada nasıl birleştirebiliriz.

 

[ben]

sayın leventm,

veri girildiğinde aktarma işleminin otomatik olarak (butona gerek kalmadan) gerçekleşmesini nasıl sağlayabiliriz.