aktarma makrosunda hata var

[gedavet]

ekteki dosyada aktarma kodunda iki hata var biri sayfa koruma şifresi olan kpdda biride aktarma kodunda sayfa gelir sayfalarından biri dolarsa ondan öncesini aktarmıyor

 

[Emir Hüseyin Çoban]

. . .

Ekteki dosyayı inceleyiniz.
YILLIK GELİR sayfasında satır sayısını 7001 yaptım.

. . .

 

[gedavet]

hocam ilginiz için teşekkür ederim
1. I sütununu bozu yor diğer sayfalardan I sütununu aktarmayacak
2. yıllık gelir sayfasındaki satırlar diğer aylardaki satır sayısı kadar olacak yani 6000
3. yıllık gelir sayfasına aktarınca boş satırları gizlemeyecek
4. sayfada koruma olacak korumayı açıp aktarıp sonra tekrar koruma koyacak
5. kodu yıllık gelir sayfasındaki gelirleri aktar şeklindeki mavi şekle ekleye bilirmiyiz

 

[Emir Hüseyin Çoban]

. . .

Madde madde işleyelim.

1. I sütununu bozu yor diğer sayfalardan I sütununu aktarmayacak

I sütununda formül vardı, formülleri iptal ettim. Yüzde hesaplamasını kodların içine aldım.

2. yıllık gelir sayfasındaki satırlar diğer aylardaki satır sayısı kadar olacak yani 6000

6000 olarak değiştirdim.

3. yıllık gelir sayfasına aktarınca boş satırları gizlemeyecek

Satır sayısını 6000 yapınca, gizlemeye gerek kalmadı.

4. sayfada koruma olacak korumayı açıp aktarıp sonra tekrar koruma koyacak

Bu aklımdaydı atlamışım, yapıldı.

5. kodu yıllık gelir sayfasındaki gelirleri aktar şeklindeki mavi şekle ekleye bilirmiyiz

Bunu sizde yapabilirsiniz, sağ tıkla makro ata ile. Yapıldı.

Sormam gereken bir şey var. Aylık gelir sayfalarında 500 satırın hepsi dolu oluyor mu ?
Örneğin Ocakta 100 satır dolu diyelim. Sadece bu 100 satırımı aktaracak, yoksa 500 satırı dolu boş bakmaksızın aktaracak mı ?

. . .

 

[gedavet]

1. Aylık gelir sayfalarında 500 satırın hepsi dolu oluyor mu ? cevap olada bilir olmayada bilir

2. Örneğin Ocakta 100 satır dolu diyelim. Sadece bu 100 satırımı aktaracak, yoksa 500 satırı dolu boş bakmaksızın aktaracak mı ? cevap kaç satır dolu ise onu aktaracak boş yerleri aktarmayacak

 

[gedavet]

makronun çalışması yavaşlayacaksa aşağıdaki işlemi iptal edebiliriz formül ile yaparız eskisi gibi

1. I sütununu bozu yor diğer sayfalardan I sütununu aktarmayacak
I sütununda formül vardı, formülleri iptal ettim. Yüzde hesaplamasını kodların içine aldım.

 

[Emir Hüseyin Çoban]

. . .

Çalışma süresi 5-6 sn aşmayacaktır. Ekteki dosyayı deneyiniz.

. . .

 

[gedavet]

SY.Cells(i, "I") = SY.Cells(i, "H") / SY.Range("H6006") * 100
bu kodda sarı dolgu yapıyor hata veridi
birde B ile I sütununu makro ile yapmasa eskisi gibi formül ile yapsak makro bende çok yavaş çalışıyor

 

[Emir Hüseyin Çoban]

. . .

Aktarma işlemini kontrol ettiniz mi ?
Aktarmada sıkıntı var mı ?

. . .

 

[gedavet]

hocam birde sayfaları kopyalayıp yapıştırıyor hücre ayaralrıda bozuluyor sadece bilgileri getirse

 

[gedavet]

yukarıdaki hatayı verdi tamam dedim aktardı aktarmada hata yok hücre biçimlendirme çizgilerini bozuyor

 

[gedavet]

Sheets("YILLIK GELİR").Range("C5:H5").AutoFilter Field:=1
Sheets("YILLIK GELİR").Range("C5:H5").AutoFilter Field:=2
Sheets("YILLIK GELİR").Range("C5:H5").AutoFilter Field:=3
Sheets("YILLIK GELİR").Range("C5:H5").AutoFilter Field:=4
Sheets("YILLIK GELİR").Range("C5:H5").AutoFilter Field:=5
Sheets("YILLIK GELİR").Range("C5:H5").AutoFilter Field:=6

hocam birde eski kodun başında yukarıdaki kod vardı filitreleme unutuldu ise temizleyim ondan sonra kaatrıyordu