Birim Biçimlendirme

[1Al2Ver]

Merhaba,

"HESAPLA" isimi sayfada;

"C10:C50" arasındaki birimlerin hesaplamasını, "E10:E50" arasına formül ile alıyorum, işlem "B4" sabit hücresiyle "D" sütunundaki veriler çarpılarak bulunuyor,

Bu durumda, bu sütunu baz alıp, farklı sayfalarda yapılan hesaplamalar sorun yaratıyor,

"E" sütununda sonuçları metne çevirmeden makro ile almak istiyorum,

NOT: "B, C ve D" sütunları başka bir makro ile alınmaktadır.

Teşekkür ederim. 27.06.2022

 

[Trilenium]

Ektedir

 

[Haluk]

@Trilenium 'un kodundaki eksik biçimlendirme kısmını da ilave edersek;

Sub Button6_Click()
    For i = 10 To 50
        sabit = Range("B4").Value
        Range("e" & i).Value = ""
        Range("e" & i).Value = Range("d" & i).Value * sabit
       
        Select Case Range("C" & i)
            Case "mt"
                Range("E" & i).NumberFormat = "0.00"
            Case "kg"
                Range("E" & i).NumberFormat = "0.000"
            Case "ad"
                Range("E" & i).NumberFormat = "0"
        End Select
    Next i
End Sub

.

 

[1Al2Ver]

Sayın Trilenium merhaba,

İlginiz ve çözüm için teşekkür ederim,

Saygılarımla.

 

[Trilenium]

@Trilenium 'un kodundaki eksik biçimlendirme kısmını da ilave edersek;

Sub Button6_Click()
    For i = 10 To 50
        sabit = Range("B4").Value
        Range("e" & i).Value = ""
        Range("e" & i).Value = Range("d" & i).Value * sabit
      
        Select Case Range("C" & i)
            Case "mt"
                Range("E" & i).NumberFormat = "0.00"
            Case "kg"
                Range("E" & i).NumberFormat = "0.000"
            Case "ad"
                Range("E" & i).NumberFormat = "0"
        End Select
    Next i
End Sub

.

Gelen dosyada yer almadığı için yazmadım.

Ellerinize sağlık.

 

[1Al2Ver]

Sayın Haluk merhaba,

İlginiz ve çözüm için teşekkür ederim,

Saygılarımla.