Çözüldü Hücre Değerini Otomatik Değiştirme

Merhaba.
Bunun için koda gerek yok, hücre biçimini değiştirmeniz yeterli.
I sütununu seçin Giriş sekmesi, Sayı bölümünde bulunan % işaretine tıklatın.

Alpi' Alıntı:

Merhaba.
Bunun için koda gerek yok, hücre biçimini değiştirmeniz yeterli.
I sütununu seçin Giriş sekmesi, Sayı bölümünde bulunan % işaretine tıklatın.

Genişletmek için tıkla...

evet öyle yaptım hocam, ama worksheet olayını da merak ettim.

chatgpt verdiği kod çalışmadı.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' I sütunundaki hücreler için kontrol yapıyoruz
If Not Intersect(Target, Sh.Columns("I")) Is Nothing Then
Application.EnableEvents = False ' Olayları geçici olarak devre dışı bırak
On Error GoTo SafeExit
Dim cell As Range
For Each cell In Target
If IsNumeric(cell.Value) Then
If cell.Value <> "" Then
cell.Value = cell.Value / 100 ' Sayıyı 100'e böler, örneğin 20'yi 0.2 yapar
cell.NumberFormat = "0%" ' Hücreyi yüzde formatına çevirir
End If
End If
Next cell
SafeExit:
Application.EnableEvents = True ' Olayları tekrar etkinleştir
End If
End Sub

Bu kodu deneyin.
HTML:

Alpi' Alıntı:

Bu kodu deneyin.
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da üye ol.

Genişletmek için tıkla...

olmadı hocam

Alpi' Alıntı:

Dosya ekte

Genişletmek için tıkla...

Teşekkür ederim, çözüldü.