sayfalar arası aktarım

[earthofdevil]

Merhaba Arkadaslar

sizlerden yardım talebım olacak umarım yardımcı olabılırsınız sımdıden tesekkurler..

ektekı dosyada (hepsi) adli bir sheet var. kitapta her actıgım yenı sayfaya ekledıgım verıler ve kıtap ıcınde halı hazırda bulunan sayfalara ekleyecegım her yenı verı ( hepsi ) isimli sayfaya otomatık olarak atmasını ıstıyorum..

daha once boyle bır calısma yapılmıstı fakat bulamadım.

yardımcı olursanız cok sevınırım

tesekkurler

 

[uzmanamele]

Merhaba Arkadaslar

sizlerden yardım talebım olacak umarım yardımcı olabılırsınız sımdıden tesekkurler..

ektekı dosyada (hepsi) adli bir sheet var. kitapta her actıgım yenı sayfaya ekledıgım verıler ve kıtap ıcınde halı hazırda bulunan sayfalara ekleyecegım her yenı verı ( hepsi ) isimli sayfaya otomatık olarak atmasını ıstıyorum..

daha once boyle bır calısma yapılmıstı fakat bulamadım.

yardımcı olursanız cok sevınırım

tesekkurler

merhaba

daha once boyle bır calısma yapılmıstı fakat bulamadım.

http://www.excel.web.tr/showthread.php?t=72895

 

[earthofdevil]

tesekkurler yardımlarınız ıcın fakat ıstedıgım sey tam olarak bu degıl

hergun ortalama 10 yenı sayfa acmam gerekıyor..
ve bu on yenı sayfa ıcın gereklı verılerı gereklı sayfalara gırmem gerekıyor..

ben bu verılerı ılgılı sayfalara gırerken aynı zamanda gırdıgım verılerın hepsınınde (hepsi) adlı sayfada toplanmasını ıstıyorum..



boyle bırsey yapmam mumkun mu?

tesekkurler

 

[earthofdevil]

aktar butonu ıle yapmam mumkun olurmu boyle bır seyi ?

 

[earthofdevil]

sanırım sorum anlasılmadı ama haklısınız ben anlatamadım..

pekı ben sheetleri elimle acacagım fakat en son ıstedıgım zaman sheetlerdekı verılerı bır sayfaya toplamak icin ne yapmam gerekıyor
bır formul varmı

 

[earthofdevil]

Sub SAYFALARIBIRLESTIR()
Dim YeniSayfa As Worksheet
Dim SayfaSay
SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(after:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
Next
End With
End Sub

boyle bır kod buldum bırlestırme yapıyor fakat bu kod tum sayfayı alıyor
benım ıstedıgım sayfada sadece dolu satırları alsın
kod ustunde degısıklık yapabılırmıyız ?


tesekkurler

 

[earthofdevil]

eskiden bu sitede sordugum sorulara 5 dakıkada cvp alabılıyordum..
acaba soru mu anlasılmaz oldu kımse yorumda yazmamıs...