Başka sayfaya aktarma yapılırken Biçimlendirme

Ömer BARAN' Alıntı:

Merhaba.

Mevcut kodda, kırmızı renklendirdiğim satırların arasına yeşil olan satırı ekleyin.
Önerdiğim değişiklik, diğer taraftaki biçimi aktarma değil. aktarılan veri satırlarına kenarlık uygulanmasıdır.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

.

Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:

İCRAA sayfasındaki KALIN kenarlığı iptal edin, yani tek tip kenarlık kullanın.

Dosyada B sütununa gelince açılan küçük userform'la ilgili Private Sub ListBox1_DblClick kod blokunda yer alan
satırının sonuna, Sayfa9.Cells(UserForm1.Label1.Caption, 2) = ListBox1.List(i, 0) * 1 gibi * 1 ekleyin.

Bu işlemin sonuç vermesi için önce,
İCRAA sayfası B sütunundaki dolu hücreleri birer kez seçip (sadece eski kayıtlar için 1 kez yapılacak)
listboxta, aynı TC Kimik Numarasına fareyle çift tıklayarak mevcut verileri yenilenmesini sağlayın.

Sonra da aktarma kodunu aşağıdakiyle değiştirerek deneyin.

CPP:

Görüntülemek için giriş yapmanız gerekmektedir.
(42 satır)

.

Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:

Sedat Bey kenarlık konusunda belirttiğim TEK TİP KENARLIK konusunu uygulamamışsınız.
Veriler, kodun ik halinde DEĞER olarak aktarılıyordu, bu konuda bir sıkıntı iletmemiştiniz ve kenarlık konusunda işlem yoktu.

Bu kez biçimi de gelsin dediniz.
Bunun üzerine ben DEĞER olarak aktarma yerine biçimi ve değeriyle aktarma konusunda cevap yazdım ve
İCRAA sayfasında tüm tabloya TEK TİP KENARLIK uygulamanız gerektiğini ilettim.
Yani İCRAA sayfası A2:X22 aralığını seçip tüm alana ince çizgili kenarlık uygulamanız, yani kalın kenarlıkları iptal etmeniz lazım.

Bu kez, TEK TİP KENARLIK konusunda gereken işlemi yapmadan kodu çalıştırıp, kenarlıkla ilgili OLMADI diyorsunuz.
K sütununda formül mevcut ama, aktarılacak veri satır sayısının 2 ile sınırlı olmayabileceği belliyken
altta, tablonun bitiminden 5 satır sonrasındaki =TOPLA(...) formülünün doğru sonuç vermesini bekliyorsunuz.
Diyelim aktarılacak satır sayısı 20 oldu o zaman ne yapacaksınız, TOPLA formülünün hem yerinin (satır) hem de
kapsadığı alanın değişmesi gerekecek değil mi?

Böyle olması gerektiğini düşünerek kod değişikliği önereyim.
Mevcut kodu silip yerine aşağıdakini yapıştırarak deneyin.
Kod veri sayısına göre, K sütunundaki formülü dolu veri satır sayısına göre aşağı doğru çoğaltır ve
mevcut verilerin 5 satır altına A-J sütununu birleştirerek TOPLAM kelimesini yazıp, bu satıra
üstte kalan alanı kapsayan =TOPLA(...) formülünü yazar.

CPP:

Görüntülemek için giriş yapmanız gerekmektedir.
(54 satır)

.

Genişletmek için tıklayın ...