SIFIRLAMA

[kardelen79]

Abi sıfır olma şart var onu sildin mi su an cepten baktim abi yükleyeceğim bilgisayara birazdan

 

[Ömer]

Silmiştim. Eklenmiş hali.

Private Sub Worksheet_Calculate()

   Dim alan, s As Long, son As Long, i As Long

    With Application
        .ScreenUpdating = False
        .Calculation = xlManual
        .EnableEvents = False
    End With
 
    son = Cells(Rows.Count, "A").End(xlUp).Row
    alan = Range("A8:AO" & son).Value
 
    ReDim dizi(1 To son, 1 To 41)
 
    For i = LBound(alan) To UBound(alan)
        s = s + 1
        If (alan(i, 3) < alan(i, 40) Or alan(i, 3) > alan(i, 41)) And alan(i, 32) = 0 Then
            dizi(s, 1) = alan(i, 1)
        Else
            dizi(s, 1) = alan(i, 2)
        End If
    Next i
 
    Range("B8").Resize(s, 1) = dizi
 
    With Application
        .Calculation = xlAutomatic
        .ScreenUpdating = True
        .EnableEvents = True
    End With
 
End Sub

 

[kardelen79]

çalışmadı abi

 

[Ömer]

sıfır kontrolünü AF sütununa göre yapmıştım.

 

[kardelen79]

tamam abi tam istediğim gibi ama olmadı af 0 şu an

 

[Ömer]

Eki inceleyin. Düğme butonuna basmadan C sütununda işaretlediğim 3 sarı hücreyi kontrol edin ve sonra butona basın. Sorun göremedim?

.

 

[kardelen79]

Abi bu programı indirdim deniyordum diğer tarafta çalışmaya başlamış inan çaşılmıyordu orası da

 

[Ömer]

Şu an çalışıyorsa sorun yok

 

[kardelen79]

abi şöyle bişi yapıyor AN8 VE AO 8 değerlerini baz almıyor sanırım değere ulaşmadan sıfırlıyor

 

[Ömer]

Gönderdiğim dosyada; örneğin B9 hücresini 25,05 yada 24,95 yaptığınız zaman sıfırlama yapmıyor. AN9 ve AO9 a göre olması gereken bu değil mi?

 

[kardelen79]

abim bir dakika sayı olarak baz almadı sanırım sütunları şu an tekrar deniyorum

 

[kardelen79]

oldu abi bunda satır sınırladırması var mı abi

 

[Ömer]

A sütunundaki son dolu satıra kadar.

 

[kardelen79]

300 SATIRDA olsa oraya kadar çalışır değil mi abi

 

[Ömer]

A sütunundaki son dolu satır 10.000 inci satırda olsa oraya kadar çalışır.

 

[kardelen79]

aynı veriyi 230 satıra yazdım 8 .9.10 satırlar çalışıyor son satır çalışmadı ondan sordum abi

 

[Ömer]

Bir şartı(satırdaki değeri vs.) eksik yazmışsınızdır.
Kodlardaki;

son = Cells(Rows.Count, "A").End(xlUp).Row tanımı A sütunudaki son satırı bulmak içindir. Örneğin son satır 500 olursa;

Range("A8:AO" & son)

ile Range("A8:AO500") aralığına bakar.

 

[kardelen79]

tamam abi tekrar aç kapa yapayım programı sıkışma felan olmuş olabilir

 

[kardelen79]

bazan bu şekilde bazı yerlerde sarı renkli oluyor

 

[kardelen79]

açılışta bu çıktı abi