Sayfa birleştirme

mertatakan3838 · 8 Ara 2019

Kod çalışmasını feyzullah bey yapmıştı Kamu sayfasını kopyalayıp Ana Data sayfasına taşıyordu. Bunu yaparken Birimler satırının son dolu hücresinden itibaren kopyalayarak yapıyor. Bunu hem birimler sayfasının son dolu hücresini hemde başlık kısmındaki FİYATLAMA yazan son dolu sütunu alarak Ana Data sayfasına kopyalamak istiyorum. Yani FİYATLAMA yazan son dolu sütundan sonra gelen boş hücreleri almasın. Bu boş hücreler doldukça enson dolu kısmı kopyalayarak taşısın

Feyzullah · 8 Ara 2019

Bu yazdığınız işlemin sonucu manuel kendiniz yapıp dosyayı ekler misin. Daha iyi anlamış oluruz.

mertatakan3838 · 9 Ara 2019

Manuel derken nasıl yani Feyzullah bey

mertatakan3838 · 9 Ara 2019

Birleştir butonuna basınca calisiyor

Ömer BARAN · 9 Ara 2019

Merhaba Sayın @mertatakan_3838 .
Sayın @Feyzullah , şu an çevrimiçi değil.

Önce KAMU sayfası AQ1:AS1 hücrelerindeki SIFIR değerlerini silin.
Sonra da mevcut kodda; aşağıda kırmızı renklendirdiğim satırı, yeşil renklendirdiğim gibi değiştirin.

NOT: KAMU sayfasındaki DÜĞMEler de kopyalanacaktır, onların durumunu netleştirmeniz lazım.

.Range("A1:BD" & Son).Copy S1.Cells(IIf(sat = 3, 2, sat), 2)
.Range("A1", .Cells(Son, .Cells(1, Columns.Count).End(xlToLeft).Column)).Copy S1.Cells(IIf(sat = 3, 2, sat), 2)

mertatakan3838 · 9 Ara 2019

Ömer BARAN' Alıntı:
Merhaba Sayın @mertatakan_3838 .
Sayın @Feyzullah , şu an çevrimiçi değil.

Önce KAMU sayfası AQ1:AS1 hücrelerindeki SIFIR değerlerini silin.
Sonra da mevcut kodda; aşağıda kırmızı renklendirdiğim satırı, yeşil renklendirdiğim gibi değiştirin.

NOT: KAMU sayfasındaki DÜĞMEler de kopyalanacaktır, onların durumunu netleştirmeniz lazım.

Düğmelerin kopyalanmasina engel olabilir miyiz Ömer hocam

Ömer BARAN · 9 Ara 2019

Kopyalamayı engelleme değil de, kopyalandıktan sonra silinmesini uygun gördüm.
Aşağıda kırmızı renklendirdiğim iki kod satırının arasına, yeşil renklendirdiklerimi ekleyin.

.Range("A1", .Cells(Son, .Cells(1, Columns.Count).End(xlToLeft).Column)).Copy S1.Cells(IIf(sat = 3, 2, sat), 2)
For Each nesne In S1.Shapes
If nesne.Left > S1.[D1].Left Then nesne.Delete
Next
S1.Cells(IIf(sat = 3, 2, sat), "").Interior.Color = vbRed

mertatakan3838 · 9 Ara 2019

Ömer BARAN' Alıntı:
Kopyalamayı engelleme değil de, kopyalandıktan sonra silinmesini uygun gördüm.
Aşağıda kırmızı renklendirdiğim iki kod satırının arasına, yeşil renklendirdiklerimi ekleyin.

ömer hocam kodları denedim KALEM ve FİYATLAMA yazan hücrelerden sonra gelen iki boş sütunuda kopyalıyor ben son dolu sütuna kadar kopyalasın istiyorum. Başlık kısmındaki sütunlar doldukça en son dolu sütundan koyalayarak işlemi devam ettirmesini istiyorum

mertatakan3838 · 9 Ara 2019

Ömer BARAN' Alıntı:
Kopyalamayı engelleme değil de, kopyalandıktan sonra silinmesini uygun gördüm.
Aşağıda kırmızı renklendirdiğim iki kod satırının arasına, yeşil renklendirdiklerimi ekleyin.

mertatakan3838 · 9 Ara 2019

celsin yanındaki 1 i 3 yaptım düzeldi ömer hocam peki C sütunudaki birim sayısı kadar yeni ürün eklendikçe hüçre kenarlığını otomatik olarak eklettirmek mümkünmü acaba

Ömer BARAN · 9 Ara 2019

Bilgisayarda değilim.
5 numaralı cevapta yeşil renkli kısımda yer alan 1 sayısını 3 olarak değiştirip dener misiniz?

.Range("A1", .Cells(Son, .Cells(3, Columns.Count).End(xlToLeft).Column)).Copy

mertatakan3838 · 9 Ara 2019

Teşekkürler @Ömer BARAN hocam.

Bilgi · 10 Ara 2019

Sayın @mertatakan_3838
Sorunuz çözüme ulaşıldı ise konuyu çözüldü olarak işaretleyip, kilitleyelim

cakarem · 6 Ocak 2020

Dönüş sağlanmadığı için konu çözüldü olarak işaretlenip, kilitlenmiştir.

	İki sayfa kodlarını bir sayfada birleştirmek Ömer BARAN 15 Kas 2022 Makro Soruları
	Sayfalardaki Verileri Tek Sayfada Birleştirme rahmiserifoner 25 Eyl 2024 Makro Soruları
	Birden fazla çalışma sayfası birleştirme hutupis 4 Şub 2021 Makro Soruları
	İki Ayrı Sayfadaki Verileri Birleştirme ve Karşılaştırma cakarem 2 Nis 2024 Makro Soruları
	Sayfa Birleştirme İşlemi Feyzullah 24 Kas 2019 Makro Soruları