Çok basit formül çalışmıyor?

[udentr2002]

Merhaba arkadaşalr,

Böyle bir şeyle ilk defa karşılaştım. Dosyamda mesala a1 hücresine çok basit bir formül yazıyorum aşağıdaki gibi,

a1=b1+c1

ama bu formül çalışmıyor.

başka bir excel dosyası açtığımda formülü yazıyorum her şey normal.

O dediğim dosyada sayfalarca VBA kodları yani verileri yeni bir sayfaya aktarmam neredeyse imkansız. Bunun sebebi nedir.

 

[muygun]

Merhaba;
Tablonuzda iken;
araçlar>seçenekler sekmesinde hesaplama nın otomatik olmasını sağlayın.
İyi çalışmalar.

 

[Levent Menteşoğlu]

Formülün yazıldığı hücre metin olarak biçimlendirilmiş olabilir. Biçimlendirmeyi genel yaptıktan sonra formülü tekrar yazın.

 

[udentr2002]

Levent hocam teşekkürler dediğiniz gibi.

Muygun hocam ilginiz için sizede çok teşekkür ederim

 

[udentr2002]

Çok değerli üstadım,

Ben o hücreleri sayı olarak biçimlendirmek zorunda olduğum için. Muygun hocamın söylemiş olduğu yöntemi uygulamak istedim.
Yanlız sayın hocamın dediği gibi Araçlar>Seçenekler sekmesinden hesaplamanın otomatik olmasını işaretliyorum. formüller sorunsuz çalışıyor. Anack aşağıda yazdığım kodları bir düğme vasıtası ile çalıştırıyorum. Bu kodlar çalışınca tekrar Araçlar>Seçenekler sekemsine baktığımda Çalışma kitapçığının çalışması adlı seçenek tekrar El ile olan yer işaretli oluyor bundan dolayıda hücrelere yazdığım hiç bir formül çalışmıyor.

Hesaplama seçenkelerini Otomatik olarak seçeneğini işarfetledikten sonra şu kodlar çalışınca kendisi tekfrar El ile adlı seçeneği işaretlemiş oluyor

Sub Iscilik_Maliyeti()
    Dim S1 As Worksheet, S2 As Worksheet, Satır As Integer, BUL As Range
    Dim HÜCRE As Range, WF As WorksheetFunction, X As Byte, Y As Byte
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set S1 = Sheets("Maliyet_Analizi")
    Set S2 = Sheets("Proje_Maliyet")
    Set WF = WorksheetFunction
    
    S1.Range("o11:p55").ClearContents
    Satır = 11
    
    
    
    S2.Rows("3:3").AutoFilter
    S2.Range("A3:DM3").AutoFilter
    S2.Range("A3:DM3").AutoFilter Field:=1, Criteria1:=S1.Range("C8")
    
    If S2.Range("A65536").End(3).Row > 3 Then
        For Each HÜCRE In S2.Range("A4:A" & S2.Range("A65536").End(3).Row).SpecialCells(xlCellTypeVisible)
            For X = 4 To 4
                If S2.Cells(HÜCRE.Row, X) <> "" Then
                    If WF.CountIf(S1.Range("o:o"), S2.Cells(HÜCRE.Row, X)) = 0 Then
                        S1.Cells(Satır, 15) = S2.Cells(HÜCRE.Row, X)
                            For Y = 4 To 4
                                If S2.Cells(HÜCRE.Row, Y) = S2.Cells(HÜCRE.Row, X) Then
                                    S1.Cells(Satır, 16) = S1.Cells(Satır, 16) + S2.Cells(HÜCRE.Row, Y + 3)
                                End If
                            Next
                            Satır = Satır + 1
                    Else
                        Set BUL = S1.Range("O:O").Find(S2.Cells(HÜCRE.Row, X), LookAt:=xlWhole)
                        If Not BUL Is Nothing Then
                            For Y = 4 To 4
                                If S2.Cells(HÜCRE.Row, Y) = S2.Cells(HÜCRE.Row, X) Then
                                    S1.Cells(BUL.Row, 16) = S1.Cells(BUL.Row, 16) + S2.Cells(HÜCRE.Row, Y + 3)
                                End If
                            Next
                        End If
                    End If
                End If
            Next
        Next
    End If
    
    S2.Rows("3:3").AutoFilter Field:=1
    
    Set BUL = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
    Set WF = Nothing
 
    Application.ScreenUpdating = True
    
End Sub

ilgili hücrelerde de aşağıdaki formüller vardır.

=EĞER(EHATALIYSA(İNDİS(Kodlar!$AA$2:$AA$9003;KAÇINCI(A11;Kodlar!$T$2:$T$9003;0)));0;(İNDİS(Kodlar!$AA$2:$AA$9003;KAÇINCI(A11;Kodlar!$T$2:$T$9003;0))))

Not: Excel 2007'de Araçlar>Seçenekler bölümüne erişebilmek için.
Satfa üstündeki Office işaretine tıkalyıp>Excel seçenekleri>Formüller>Hesaplama seçenekleri sekmesi altında Çalışma kitabı hesaplanması

Bu sorunu nasıl giderebilrim. Yardımcı olursanız çok sevinirim

 

[Merhum İdris SERDAR]

..


....

....
....
...

Application.Calculation =xlCalculationAutomatic

End Sub

şeklinde deneyin.
.

 

[udentr2002]

Hocam çok teşekkür ederim. Dediğiniz gibi yapınca düzeldi.

 

[la1end]

bilgilerinize gercekten cok hayranim. zaman zaman sorunlarimi burada aratiyor buluyor ve faydalaniyorum. tesekkurler, ellerinize - emeginize saglik.