Formüllerin içerisindeki sabitleri arttırmak

[byesir]

Kardeş sen sonuna kadar haklısın eğer kırdıysam çok özür dilerim ben istediğin şekilde yaptım http://s2.dosya.tc/server8/OBICjN/analizler2012.rar.html buraya yükledim yardımcı olursan çok sevineceğim

 

[uzmanamele]

Merhaba

Aşağıdaki kodu standart modüle yazarak çalıştırınız.

Sub Formulas()
On Error GoTo dip
    Application.Calculation = xlManual
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        dosyayolu = "'C:\Documents and Settings\suleyman\Desktop\analizler 2012\T2012-"
For i = 1 To 1000
        dosyaadi = Format(i, "0000")
Cells(i + 3, "A").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!numno"
Cells(i + 3, "B").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!işba2"
Cells(i + 3, "E").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!pH"
Cells(i + 3, "F").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!EC/1000"
Cells(i + 3, "G").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!gazhacmi"
Cells(i + 3, "H").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!sıcaklık"
Cells(i + 3, "I").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!atmbasınç"
Cells(i + 3, "J").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!kireç"
Cells(i + 3, "N").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!ppmFe"
Cells(i + 3, "O").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!ppmCu"
Cells(i + 3, "P").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!ppmZn"
Cells(i + 3, "Q").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!ppmMn"
Cells(i + 3, "S").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!POD"
Cells(i + 3, "U").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!ppmP"
Cells(i + 3, "V").Formula = "=" & dosyayolu & idosyaadi & ".xlsm'!KgdaP2O5"
Cells(i + 3, "X").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!KOD"
Cells(i + 3, "Z").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!ppmK2O"
Cells(i + 3, "AA").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!KgdaK2O"
Cells(i + 3, "AB").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!KCl"
Cells(i + 3, "AC").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!Nk"
Cells(i + 3, "AD").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!demirsülfat"
Cells(i + 3, "AF").Formula = "=" & dosyayolu & dosyaadi & ".xlsm'!yüzdeOM"

Next
dip:
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox "Bittim..."
End Sub

dosyayolu = "'C:\Documents and Settings\suleyman\Desktop\analizler 2012\T2012-"

Bu yol benim makinedeki dosya yolu, kendi makinenizdeki dosya yoluyla değiştiriniz.
Dosya sayısı 1000 olarak düşünüldü, sizin kaç dosyanız varsa for-next döngüsünü bu sayı kadar yapınız.
Dosyalarınızda tanımlı ad kullanmışsınız, bu yüzden #AD? hatası alırsınız.

15Mb örnek dosya eklemişsiniz. Bu boyutta bir dosya sıkıştırıldığında 3Mb oluyor. Siteye bu boyutta dosya ekleme imkanı yok.

1048576 satırlık excel dosyası ile çalışılmaz! exceldeki satır sayısının tamamını kullanmanızın gereği yok! Dosyanızı küçültünüz.

 

[byesir]

Değerli Kardeşim Senden Bir Değil Binlerce Kez Allah Razı Olsun Beni Nasıl Bir Dertten Kurtardığını Anlatamam. Yani Sana Neler Söylesem Boş Çünkü Sen Çok Ayrıcalıklı Birisin. Eğer Bir Hatam Olduysa Kusuruma Bakma.Ben Afyonda Oturuyorum. Afyonumuzun Lokumu Sucuğu Meşhurdur.Eğer Kabul Buyurursan Sana Göndermek İsterim Ailenle Afiyetle Yemeni Temenni Ederim.

Saygılarımla

 

[uzmanamele]

Değerli Kardeşim Senden Bir Değil Binlerce Kez Allah Razı Olsun Beni Nasıl Bir Dertten Kurtardığını Anlatamam. Yani Sana Neler Söylesem Boş Çünkü Sen Çok Ayrıcalıklı Birisin. Eğer Bir Hatam Olduysa Kusuruma Bakma.Ben Afyonda Oturuyorum. Afyonumuzun Lokumu Sucuğu Meşhurdur.Eğer Kabul Buyurursan Sana Göndermek İsterim Ailenle Afiyetle Yemeni Temenni Ederim.

Saygılarımla

Merhaba

Ne yalan söyleyeyim, yapamadım deseydiniz soruyla birdaha ilgilenmeyecektim.
Klasör adı ve dosya adını değiştirirseniz kod doğru çalışmaz, bilginiz olsun.
Güle güle kullanınız.

Bu arada cumhuriyet sucuğunu da severim.

 

[byesir]

Eywallah Abi Sağolasın ilgilendiğin için valla varya kafanı ağrıttım sabahtan beri abi adresi ver de göndereyim valla hatta msn den ekle sen beni esir@esirturk.com msn adresim

 

[byesir]

Abi bu arada face ' den buldum seni kabul edersen çok sevineceğim Kadir Mandal abi ismim soyismim

 

[byesir]

Allah Razı Olsun Abi