Hücreden "x" ile taşıma

[1Al2Ver]

İyi sabahlar, ek'li dosyada sayfa2'deki veriler, sayfa1'deki hücrelere "X" yazarak taşınıyor, çözüm istenen konu ; sayfa2'deki hücrelerde veri yoksa, sayfa1'deki hücreye "x" yazdığımızda boş olduğunu belirtmesi adına renklensin yada "yok" yazsın, olabilirmi acaba? Teşekkür ederim.

 

[Necdet]

Merhaba

Sayfa2 de R27 hücresinde Yesertener lafı var, bu nedir?

Neden benim soyadım var?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Kırmızı renkli kısımlar ilave edilmiştir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C3:N16]) Is Nothing Then Exit Sub
If Target.Value = "x" Or Target.Value = "X" Then
[B][COLOR=red]If Sheets("Sayfa2").Cells(Target.Row, Target.Column) = "" Then[/COLOR][/B]
[B][COLOR=red]Target.Interior.ColorIndex = 6[/COLOR][/B]
[B][COLOR=red]Target = "YOK"[/COLOR][/B]
[B][COLOR=red]Else[/COLOR][/B]
Target.Offset(0, 0) = Sheets("Sayfa2").Cells(Target.Row, Target.Column)
[B][COLOR=red]End If[/COLOR][/B]
End If
Son:
End Sub

 

[1Al2Ver]

Merhaba

Sayfa2 de R27 hücresinde Yesertener lafı var, bu nedir?

Neden benim soyadım var?

Sayın Yesertener, yazılan formülün yada macronun sahibini kayıt ettim, emeğine saygı olsun diye, başka bir amacım yok, saygılar.

 

[1Al2Ver]

Sayın leventm, teşekkür ederim, elinize sağlık, iyi sabahlar diliyorum.

 

[1Al2Ver]

Aşağıdaki kodu deneyin. Kırmızı renkli kısımlar ilave edilmiştir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C3:N16]) Is Nothing Then Exit Sub
If Target.Value = "x" Or Target.Value = "X" Then
[B][COLOR=red]If Sheets("Sayfa2").Cells(Target.Row, Target.Column) = "" Then[/COLOR][/B]
[B][COLOR=red]Target.Interior.ColorIndex = 6[/COLOR][/B]
[B][COLOR=red]Target = "YOK"[/COLOR][/B]
[B][COLOR=red]Else[/COLOR][/B]
Target.Offset(0, 0) = Sheets("Sayfa2").Cells(Target.Row, Target.Column)
[B][COLOR=red]End If[/COLOR][/B]
End If
Son:
End Sub

Sayın leventm, tekrar iyi yıllar dilerim, aşağıdaki kod, sayfa1 verilerini silerken hücredeki renkleri silemiyor, silmesi için nereye ne ilave edilebilir ? Teşekkür ederim.

Sub Button1_Click()
If (MsgBox("İlgili Kayıtları Silmek İstiyormusunuz?", vbCritical + vbDefaultButton1 + vbYesNo, "UYARI")) = vbYes Then
Range("C3:N16").ClearContents
Else
Exit Sub
End If
End Sub

 

[Necdet]

Merhaba,

Sub Button1_Click()
If (MsgBox("İlgili Kayıtları Silmek İstiyormusunuz?", vbCritical + vbDefaultButton1 + vbYesNo, "UYARI")) = vbYes Then
Range("C3:N16").ClearContents
Range("C3:N16").Interior.ColorIndex = xlNone
End If
End Sub

 

[1Al2Ver]

Merhaba,

Sub Button1_Click()
If (MsgBox("İlgili Kayıtları Silmek İstiyormusunuz?", vbCritical + vbDefaultButton1 + vbYesNo, "UYARI")) = vbYes Then
Range("C3:N16").ClearContents
Range("C3:N16").Interior.ColorIndex = xlNone
End If
End Sub

Sayın Yesertener, merhaba, tekrar iyi seneler, valla benzetmem için affınıza sığınıyorum, ambulans gibisiniz, çok teşekkür ederim, saygılar sunuyorum.

 

[Necdet]

Saygı bizden Sayın 1Al2Ver