Çözüldü VBA ilebaska sayfadan veri kopyala

[gurbetci]

sevgili forum,

vba ile baska sayfadan veri alip sirasina gore kopyalayabilirmiyiz. ornegin sonraki sayfada listenin oldugu birinci sutundaki hucrelerin herhangi birinde veri varsa bir sonraki sutuna gecebilirmi. kopyalarken de kopyaladigi hucrenin sadece verisini kopyalayabilirmi. ekteki excelde oldugu gibi birinci sayfadaki a listesindeki verileri ikinci sayfadaki a listesine gunluk doldurmam gerekiyor. bir tik'la olurmu

 

[arschimet]

daha net bir tanımlama yapa bilir misiniz? Listenin olduğu birinci sütundaki hücreler ?
Örnek:
Blad1 sayfasında D8 hüresinde bulunan veri; Blad2 sayfasına D8 e gidecek gibi

 

[askan]

arschimet hocam izninle ben bitane paylaşayım. Ona göre yönlendirirse söylediğine göre yaparsınız

 

[arschimet]

arschimet hocam izninle ben bitane paylaşayım. Ona göre yönlendirirse söylediğine göre yaparsınız

askan soruyu anlayıp çözebildiyseniz çok sevindim ellerinize sağlık

 

[askan]

askan soruyu anlayıp çözebildiyseniz çok sevindim ellerinize sağlık

yok hocam arkadaşın orjinal dosyası farklı çıkarsa çalışmayacak. Bir denesin ona göre yönlendirecektir tahminim

 

[gurbetci]

HOCAM Elinize saglik. cozumu paylasmissiniz. sagolun

 

[gurbetci]

hocam blad3 e gideni range d10:j17 olarak yazabilirmiyiz. daha iyi anlarim. baska dosyaya uygularken daha kolay olur benim icin

 

[askan]

hocam blad3 e gideni range d10:j17 olarak yazabilirmiyiz. daha iyi anlarim. baska dosyaya uygularken daha kolay olur benim icin

alacağınız veriniz o aralıkta ise tabi ki ben sizin gönderdiğiniz şablona göre ayarladım. Siz oraları oynayarak değiştirebilirsiniz.

 

[gurbetci]

alacağınız veriniz o aralıkta ise tabi ki ben sizin gönderdiğiniz şablona göre ayarladım. Siz oraları oynayarak değiştirebilirsiniz.

Hocam degistirecemde pek anlamadigim icin dedimki mesela "(b2.Range(Cells(10, i), Cells(17, i))" bunun yerine (D10:J17) boyle yazmayi denedim ama hata verdi. dedigim gibi yazabilirseniz, degistirmesini yapabilirim ben.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[askan]

Hocam degistirecemde pek anlamadigim icin dedimki mesela "(b2.Range(Cells(10, i), Cells(17, i))" bunun yerine (D10:J17) boyle yazmayi denedim ama hata verdi. dedigim gibi yazabilirseniz, degistirmesini yapabilirim ben.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

O şekilde olmaz hocam . Ben kopyalayacağınız yeri anladım. Siz yapıştıracağınız yeri değiştirmek istemişsiniz. Yapıştıracağınız yerin hesabı ve yeri o kodda hesaplanıyor. Yapıştıracağınız yer değişecekse ona göre kontrol yapılıp yapıştırılacak yer hesaplanmalıdır.

 

[gurbetci]

O şekilde olmaz hocam . Ben kopyalayacağınız yeri anladım. Siz yapıştıracağınız yeri değiştirmek istemişsiniz. Yapıştıracağınız yerin hesabı ve yeri o kodda hesaplanıyor. Yapıştıracağınız yer değişecekse ona göre kontrol yapılıp yapıştırılacak yer hesaplanmalıdır.

O şekilde olmaz hocam . Ben kopyalayacağınız yeri anladım. Siz yapıştıracağınız yeri değiştirmek istemişsiniz. Yapıştıracağınız yerin hesabı ve yeri o kodda hesaplanıyor. Yapıştıracağınız yer değişecekse ona göre kontrol yapılıp yapıştırılacak yer hesaplanmalıdır.

anladim hocam. o zaman ben bu kodu biraz ugrasip cozmem lazim. neresini degistirince neresi degisiyor falan.

 

[askan]

Deneyerek bulursunuz ama döngü ve if yapılarınınıda öğrenmeniz gerek

 

[gurbetci]

Deneyerek bulursunuz ama döngü ve if yapılarınınıda öğrenmeniz gerek

biraz cozdum gibi, sagolun. yalniz cozuldu olarak gostermek istedim ama olmadi