wba

[samsunsss]

ARKADAŞLAR BİR EXCEL ÇALIŞMA KİTABIMA BİR WBA KODU YAZDIM. ÇALIŞMA KİTABINDA 16 TANE ALT SAYFA YANİ ÇALIŞMA SAYFASI VAR.YAZDIĞIM KOD SAYFADA FORMUÜL VARSA VE EĞER DEĞER YOKSA YANİ #YOK YAZIYORSA BUNU GÖSTERMİYECEK.KOD ÇALIŞIYOR DEĞERİ OLMAYAN FORMÜLLERİ GÖSTERMİYOR AMA DAHA SONRA ORAYA Bİ DEĞER GELDİĞİNDE YİNE GÖSTERMİYOR HER SEFERİNDE GİRİP GELİŞTİRİCİ BÖLÜMÜNDEN ÇALIŞTIRMAK YANİ O PLAY TUŞUNA BASMAK GEREKİYOR.BEN MAKRODAN ANLAMIYORUM Bİ YERDEN BULDUM YAZDIM O KODU YAZDIĞIM KOD:
-------------------------------------
Private Sub Worksheet_Calculate()
On Error Resume Next
ActiveSheet.Unprotect "deneme"
Cells.SpecialCells(xlCellTypeFormulas, 16).Font.ColorIndex = 2
Cells.SpecialCells(xlCellTypeFormulas, 7).Font.ColorIndex = 1
ActiveSheet.Protect = "deneme"
End Sub
--------------------------------------
HER SEFERİNDE BU İŞLEMİ GEREKTİRMEYECEK BU KODU OTOMATİK ÇALIŞTIRACAK HERHANGİ BİR KOD VARMIDIR. EĞER YARDIMCI OLURSANIZ ÇOK SEVİNİRİM.HERKESE KOLAY GELSİN.

 

[Necdet]

Merhaba,

Lütfen büyük harfle yazmayınız. Hem okuması zor hemde bu tür ortamlarda kızgınlık olarak algılanıyor.

Kodlarınızı denedim çalışıyor, bir hata göremedim.

Yalnız kodlarınızın çalışması için sayfadaki formüllerin hesaplanması gerek. Eğer hesaplanmaya değer olmazsa kodun çalışmaması doğaldır.

 

[samsunsss]

özür dilerim yanlış bişey yaptıysam.asla bilerek yada herhangi bir kasıtla büyük harfle yazmadım. sadece dikkatsizliğim.evet kodlar çalışıyor ama sayfayı açtığımda otamatik olarak çalışmıyor her seferinde benim her alt başlık için yani her çalışma sayfası için tek tek açıp çalıştır demem gerekiyor. girilen her veriden sonra tek tek 16 alt sayfada aynı işlemi yapmam gerekiyor.aslında bu sayfada basit bir formül var.16 ayrı excel sayfası yeni bir excel sayfasında alt sayfalar halinde toplandı ve o sayfada ne varsa = formülü ile bu sayfaya aktarıldı. ama boş olan hücrelerde #yok yazıyordu bende bu kodu o yüzden yazmıştım.yani ayrı 16 excel sayfasına girilen verileri birisi tek bi excel sayfasında takip edecekti.