Veri farkı

[ogecen]

Merhaba arkadaşlar

A2 hücresinde: 9,86
B2 hücresinde 10,86
rakamları var

C2 hücresine sonuç olarak, eğer B2 rakamı A2 den büyük ise "1 gr. artış var", küçük ise "1 gr. düşüş var" yazılabilmesi için yardımlarınızı rica ederim

A	B	C
standart	fiili	Sonuç
9,86	10,86	Fiili değer, Standard değerden büyük ise " 1gr. Artış var"
9,86	8,86	Fiili değer, Standard değerden küçük ise " 1gr. düşüş var"

Saygılarımla,

 

[AdemCan]

Merhaba, her zaman 1 gr fark olacaksa

=EĞER(B2>A2;"1 gr. artış var.";EĞER(B2<A2;"1 gr. azalış var.";"Artış ya da azalış yok."))

aradaki fark farklı oluyorsa

=EĞER(B2-A2>0;B2-A2 & " gr artış var.";EĞER(B2-A2<0;-(B2-A2) & " gr azalış var.";"Artış ya da azalış yok."))

formülünü kullanabilirsiniz.

 

[ogecen]

Adem Can bey,
Çok teşekkür ederim,
Sonuç kısımda bazı satırda 0,08999999999999 gibi sonuçlar çıkıyor. Bu değerleri 0,00 digit yapabilirmiyiz, Hücreleri biçimlendirden yapamadım.
Ayrıca ; A2 satırı boş ise C2 boş geçsin diye; sizin formulün başına =EĞER(C2="";"" uyguladım olmadı. Bu konuda yardımlarınızı rica edebilirmiyim

 

[ogecen]

Formül sonucu "7,53999999999999 gr artış var." Rica etsem sonuç : 7,54 gr artış var" olacak şekilde yapılması konusunda yardımlarınızı rica ederim
Saygılarımla

 

[MusaPEKEL]

Sub KontrolVeYaz()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' Çalışmak istediğiniz sayfayı belirtin
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Sayfa adını değiştirin
    
    ' İlgili sütunun son satırını bulun
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' A2 ve B2'den başlayarak tüm satırları kontrol edin
    For i = 2 To lastRow
        ' Eğer B sütunu A sütunundan büyükse
        If ws.Cells(i, 2).Value > ws.Cells(i, 1).Value Then
            ws.Cells(i, 3).Value = "1 gr. artış var"
        ElseIf ws.Cells(i, 2).Value < ws.Cells(i, 1).Value Then
            ws.Cells(i, 3).Value = "1 gr. düşüş var"
        Else
            ws.Cells(i, 3).Value = "Değişiklik yok"
        End If
    Next i
End Sub

 

[ogecen]

Musa Pekel bey, çok teşekkür ederim,
Ancak Macro konusunda hiç bilgim olmadığı için, formülle yardımcı olabilirmisiniz rica etsem

 

[MusaPEKEL]

Merhaba, her zaman 1 gr fark olacaksa

=EĞER(B2>A2;"1 gr. artış var.";EĞER(B2<A2;"1 gr. azalış var.";"Artış ya da azalış yok."))

aradaki fark farklı oluyorsa

=EĞER(B2-A2>0;B2-A2 & " gr artış var.";EĞER(B2-A2<0;-(B2-A2) & " gr azalış var.";"Artış ya da azalış yok."))

formülünü kullanabilirsiniz.

Musa Pekel bey, çok teşekkür ederim,
Ancak Macro konusunda hiç bilgim olmadığı için, formülle yardımcı olabilirmisiniz rica etsem

Zaten sizlere iletmiş

 

[ogecen]

Evet iletildi, emeği geçen arkadaşlara teşekkür ederim
Ancak; Formül sonucu "7,53999999999999 gr artış var." Rica etsem sonuç : 7,54 gr artış var" olacak şekilde yapılması konusunda yardımlarınızı rica ederim

 

[MusaPEKEL]

Dosya iletirmisiniz şuanda kafam karıştı

 

[ogecen]

Dosya ektedir.
Şimdiden çok teşekkür ederim

 

[ogecen]

Dosyada M kolonunda bilgiler, virgülden sonra 2 hane olmasını istiyorum

 

[Korhan Ayhan]

Deneyiniz.

=EĞER(D3="";"";EĞER(K3-J3>0;METNEÇEVİR(K3-J3;"0,00")&" gr artış var.";EĞER(K3-J3<0;METNEÇEVİR(K3-J3;"0,00")&" gr azalış var.";"Artış ya da azalış yok.")))

 

[ogecen]

Korhan bey,
Çok teşekkür ederim, elinize sağlık