Verileri Sayfalara Dağıtma

[eskişehirli1]

İyi Günler
Ben bir sayfaya girilen verileri diğer sayfalara dağıtmak istiyorum ekli dosyada veri sayfasından TL olanları TL sayfasına EUR olanları EUR sayfasına nasıl dağıtabilirim yardımcı olabilirseniz sevinirim şimdiden teşekkürler.

Ekli dosyayı görüntüle Örnek Kasa.xlsx

 

[İhsan Tank]

İyi Günler
Ben bir sayfaya girilen verileri diğer sayfalara dağıtmak istiyorum ekli dosyada veri sayfasından TL olanları TL sayfasına EUR olanları EUR sayfasına nasıl dağıtabilirim yardımcı olabilirseniz sevinirim şimdiden teşekkürler.

Ekli dosyayı görüntüle 111450

merhaba
eki inceler misiniz
sayfaya tıkladığınızda otomatik verileri aktarır

 

[eskişehirli1]

Veri Aktarma

Sn. İhsan Bey,

Yardımlarınız için çok teşekkürler verdiğiniz kodlar işimi gördü. Tekrar teşekkürler.

 

[İhsan Tank]

Sn. İhsan Bey,

Yardımlarınız için çok teşekkürler verdiğiniz kodlar işimi gördü. Tekrar teşekkürler.

rica ederim
:yazici:

 

[eskişehirli1]

Veri Aktarma

Sn. İhsan Bey,

Sayfa dağıtma işini dört döviz türü için nasıl yapabiliriz acaba (TL-EUR-USD-GBP) kodda ne gibi değişiklik gerekiyor.

 

[İhsan Tank]

Sn. İhsan Bey,

Sayfa dağıtma işini dört döviz türü için nasıl yapabiliriz acaba (TL-EUR-USD-GBP) kodda ne gibi değişiklik gerekiyor.

merhaba

Private Sub Worksheet_Activate()
Dim c As Range, sat As Long, ilkadres As Variant
Range("A2:I" & Rows.Count).ClearContents
sat = 2
With Sheets("VERİ").Range("E:E")
Set c = .Find("[COLOR="Red"]GBP[/COLOR]", LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Cells(sat, "A") = Sheets("VERİ").Cells(c.Row, "A")
Cells(sat, "B") = Sheets("VERİ").Cells(c.Row, "B")
Cells(sat, "C") = Sheets("VERİ").Cells(c.Row, "C")
Cells(sat, "D") = Sheets("VERİ").Cells(c.Row, "E")
Cells(sat, "E") = Sheets("VERİ").Cells(c.Row, "F")
Cells(sat, "F") = Sheets("VERİ").Cells(c.Row, "G")
Cells(sat, "G") = Sheets("VERİ").Cells(c.Row, "H")
Cells(sat, "H") = Sheets("VERİ").Cells(c.Row, "I")
Cells(sat, "I") = Sheets("VERİ").Cells(c.Row, "J")
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
End If
End With
End Sub

sayfa ekliyerek ve kırmızı yeri yenisine göre değiştirdikten sonra kullanarabilirsiniz.
eki inceleyin en dört adet ekledim

 

[yellow]

sayın ihsan bey çok güzel bir kod sistemi acaba dvz kısmında yazılı olan (tl-eur-usd-gbd veya başka veriler) bunlara ayrı ayrı sayfa açarak kendisi verileri otomatik atabilirmi.şimdiden çok teşekkür ederim .

 

[halit3]

İyi Günler
Ben bir sayfaya girilen verileri diğer sayfalara dağıtmak istiyorum ekli dosyada veri sayfasından TL olanları TL sayfasına EUR olanları EUR sayfasına nasıl dağıtabilirim yardımcı olabilirseniz sevinirim şimdiden teşekkürler.

Ekli dosyayı görüntüle 111450

Alternatif olarak dosyanızı kontrol edermisiniz.

 

[eskişehirli1]

Sayfalara Dağıtma

Sn. Halit Bey,
Yardımlarınız için çok teşekkürler. Emeğinize ayrıca saygılar. Yalnız her yeni veri eklendiğinde sayfaları silip mi yazıyoruz. Bu durumda sayfa kolon genişliklerini ayarlamak gerekiyor. Sayfalar kalsa veriler silinse yada yeni veriler eklense bu şekilde yapmak için kodlarda ne gibi değişiklik yapmak gerekir. Birde A sütunundaki R ve G harfleri sayfalara sayı olarak yansımış. Ayrıca sayfalarda
alt toplam olayı süper olmuş. Tekrar teşekkürler.

 

[eskişehirli1]

Sn. Halit Bey,
Yardımlarınız için çok teşekkürler. Emeğinize ayrıca saygılar. Yalnız her yeni veri eklendiğinde sayfaları silip mi yazıyoruz. Bu durumda sayfa kolon genişliklerini ayarlamak gerekiyor. Sayfalar kalsa veriler silinse yada yeni veriler eklense bu şekilde yapmak için kodlarda ne gibi değişiklik yapmak gerekir. Birde A sütunundaki R ve G harfleri sayfalara sayı olarak yansımış aynen aktarılması gerekiyor. Ayrıca sayfalarda alt toplam olayı süper olmuş. Tekrar teşekkürler.

 

[halit3]

Sn. Halit Bey,
Yardımlarınız için çok teşekkürler. Emeğinize ayrıca saygılar. Yalnız her yeni veri eklendiğinde sayfaları silip mi yazıyoruz. Bu durumda sayfa kolon genişliklerini ayarlamak gerekiyor. Sayfalar kalsa veriler silinse yada yeni veriler eklense bu şekilde yapmak için kodlarda ne gibi değişiklik yapmak gerekir. Birde A sütunundaki R ve G harfleri sayfalara sayı olarak yansımış aynen aktarılması gerekiyor. Ayrıca sayfalarda alt toplam olayı süper olmuş. Tekrar teşekkürler.

Her değişiklikte sayfaları sil düğmesine tıklayıp sonra aktar düğmesine tıklamak gerekiyor

birinci sutün içinde aşağıdaki bölümü silin

Worksheets(yer).Cells(sat, 1).Value = sat - 1