• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Bir formülü makroya çevirme problemi..

P

policeman

Katılım
1 Eylül 2007
Mesajlar
387
Excel Vers. ve Dili
2003 Türkçe
=+EĞER(EĞERSAY(VERİ;E2);"POLİCEMAN";"")
Bu formül B2:B65536 aralığını kapsayacak şekilde nasıl makroya çevrilebilir..
Ayrıca çalışma kitabımda ŞEKER 01 ŞEKER 02 ŞEKER 03 isimli 3 sayfaya nasıl uyarlayabilirim..
Formül işimi görüyor ama veri çok olduğu için dosya şişiyor..
Yardımlarınızı bekliyorum
Saygılarımla...
 
Hocam ekleyeceğim dosya özel bilgi ve açıklamalar içeriyor mümkünse mail adresinize gönderebilirmiyim..
 
Hocam ilginize teşekkür ederim
Hayali veriler ile doldurursam,makrodan fazla anlamadığım için sonrasında uyarlıyamam..
Ben koşullu biçimlendirme ile hallettiğim kadarıyla idare etmeye çalışayım.
Hayırlı iftarlar..
 
policeman' Alıntı:
Hocam ilginize teşekkür ederim
Hayali veriler ile doldurursam,makrodan fazla anlamadığım için sonrasında uyarlıyamam..
Ben koşullu biçimlendirme ile hallettiğim kadarıyla idare etmeye çalışayım.
Hayırlı iftarlar..
Genişletmek için tıkla ...

dosyanız aynı sadece verileri hayalle değiştirin ve ekleyin demiştim
karar sizin orasına yapabileceğim bir şey yok
 
Bir module yapıştırarak bu kodları uyarlamaya çalışın, kodlar bu siteye aittir.
Option Explicit
Sub DÖNGÜ_İLE_FORMÜL_YAZ()
Dim X As Integer, J As Integer, K As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
J = 1: K = 1
For X = 1 To 5000
Sheets("Sayfa1").Cells(X, 1) = "=+IF(COUNTIF(VERİ,RC[4]),""POLİCEMAN"","""")"
J = J + 2
K = K + 1
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Yardım lazım abiler

Basit bi excel formülü yazdım fakat hesapla tuşu atayarak formülü çalıştırmak istiyorum fakat makro konusunda çok çok yetersiz bilgiye sahibim, yardımlarınızı bekliyorum
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst