DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub DD()
If ActiveCell.Interior.Color = 255 Then
ActiveCell.NumberFormat = ActiveCell.Value
ActiveCell.Value = "0"
ElseIf ActiveCell.Interior.Color = 65535 Then
ActiveCell.Value = ActiveCell.NumberFormat
ActiveCell.NumberFormat = "0.00"
ActiveCell.Interior.ColorIndex = xlNone
End If
End Sub
Hocam bu makro çalışıyor evet. Teşekkür ederim. Peki hücrelerimizin renk biçimlendirmesi var, o yüzden sarı-kırmızı ile bozmak istemiyoruz. Bu makroyu "sadece seçili hücrelerde" çalıştırsak nasıl değiştirmemiz gerekecek sizce?Merhaba,
Bildiğim kadarıyla hücre bazında bu tip bir ayar yok. Fakat Makro ile aşağıdaki gibi bir çözüm uygulayabiliriz. Şöyle çalışıyor;
Seçtiğiniz hücre rengini kırmızı yaptıktan sonra makroyu butona yada kısayola bağlayıp çalıştırıyorsunuz. Makro, hücrenin değerini 0 (Sıfır) yaparken, hücre biçimlendirmesini değiştirerek, varmış gibi gösteriyor. Hücre değerine tekrar ihtiyacınız olduğunda hücreyi Sarı renge boyayıp makroyu tekrar çalıştırdığınızda da hücrenin biçimlendirmesi gidiyor ve hücre değeri geri geliyor.
Ekli dosyayı görüntüle 248209
Kod:Sub DD() If ActiveCell.Interior.Color = 255 Then ActiveCell.NumberFormat = ActiveCell.Value ActiveCell.Value = "0" ElseIf ActiveCell.Interior.Color = 65535 Then ActiveCell.Value = ActiveCell.NumberFormat ActiveCell.NumberFormat = "0.00" ActiveCell.Interior.ColorIndex = xlNone End If End Sub
Sub DD()
If ActiveCell.Value = 0 Then
ActiveCell.Value = ActiveCell.NumberFormat
ActiveCell.NumberFormat = "0.00"
Else
ActiveCell.NumberFormat = ActiveCell.Value
ActiveCell.Value = 0
End If
End Sub
Merhaba;Aşağıdaki gibi dener misiniz? Ayrıca sadece seçili hücrede çalışacaktır. Aralık seçerseniz sonuç alamazsınız.
Kod:Sub DD() If ActiveCell.Value = 0 Then ActiveCell.Value = ActiveCell.NumberFormat ActiveCell.NumberFormat = "0.00" Else ActiveCell.NumberFormat = ActiveCell.Value ActiveCell.Value = 0 End If End Sub