formüllü hücreyi formülsüz hale getirmek

[celofb]

merhaba Arkadaşlar;

Ek excel dosyamda açıkladığımı gibi formül ile getirdiğim hücredeki değerleri nasıl bir formül ile kopartıp manuel yazılmış hale getirebilirim.
İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Haluk]

Hücreleri kopyalayıp, yapıştır/özel yapıştır .... "değer" olarak yapıştırın.

.

 

[hamitcan]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target.Text = "X" Then
        Range("b" & Target.Row & ":l" & Target.Row).Copy
        Range("b" & Target.Row & ":l" & Target.Row).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End If
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If [A37] = "X" Then
[B37:L37].Value = [B37:L37].Value
[A37] = ""
End If
Application.EnableEvents = True
End Sub

 

[celofb]

Teşekkürler. Kolay gelsin.

 

[celofb]

Merhaba hamitcan
Vermiş olduğunuz kod için teşekkürler.kodu uyguladığım zaman A dan L hücresine kadar alıyor.Bunu A dan N hücresine kadar( N hücresi dahil ) nasıl değiştirebilirim.

 

[hamitcan]

":l" yazan yeri ":n" olarak değiştirmeniz yeterli.

 

[celofb]

teşekkürler