Veri girdikçe sil, kopyala

[ADER_34]

Merhaba herkese hayırlı akşamlar benim örnek doyamda "C" sütununa herhangi bir satıra veri girdğimde "T" harfini sil,sonra yanındaki hücreyi "D" satırına veri girince, hücreyi kopyala makrosuna ihtiyacım var örnek dosyam ekte kolay gelsin teşekkürler..
http://s5.dosya.tc/server/c6olgx/HARF_SIL.xlsx.html

 

[Necdet]

Merhaba,

Dosyanıza baktım, açıklamanızdan hiç bir şey anlamadım.

Genel geçer şeyler değil de ne yapmak istediğiniz açık açık yazarsanız yardımcı olacak arkadaşlar çıkacaktır.

Hücreyi kopyalama ihtiyacım var diyorsunuz hangi hücreyi nereye kopyalayacaksınız vs vs vs.

 

[ADER_34]

Merhaba Necdet Bey hata bende kullandığım kodalara ilave olarak "C" sütununa geldiğinde metin içeriğinde "T" harfi varsa sil diyebilirmiyizi? kodlar
Private Sub Worksheet_Change(ByVal Target As Range)
'If Not Intersect(Target, [B1:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")
If Intersect(Target, Range("E2:E5000")) Is Nothing Then GoTo 10
Cells(Target.Row, "I").Select
10:
If Intersect(Target, Range("I2:I5000")) Is Nothing Then GoTo 20
Cells(Target.Row, "H").Select
20:
If Intersect(Target, Range("H2:H5000")) Is Nothing Then GoTo 30
Cells(Target.Row, "B").Select
30:
If Intersect(Target, Range("B2:B5000")) Is Nothing Then GoTo 40
Cells(Target.Row, "C").Select
40:
If Intersect(Target, Range("C2:C5000")) Is Nothing Then GoTo 50
Cells(Target.Row, "D").Select
50:
If Intersect(Target, Range("D25000")) Is Nothing Then GoTo 60
Cells(Target.Row, "F").Select
60:
If Intersect(Target, Range("F2:F5000")) Is Nothing Then Exit Sub
Cells(Target.Row + 1, "E").Select
kolay gelsin..

 

[PLİNT]

Merhaba
Yukarıdaki kodlarınızın içinde bulunan; aşağıdaki siyah bölümlerin; arasındaki
mavi bölümleri ekleyip denermisiniz?

Örnek dosyanızdaki gibi sadece ilk harfi "T" ise silinsin:

If Intersect(Target, Range("B2:B5000")) Is Nothing Then GoTo 40
Cells(Target.Row, "C").Select
[COLOR="Blue"]If UCase(Left(ActiveCell, 1)) = "T" Then _
ActiveCell = Right(ActiveCell, Len(ActiveCell) - 1)[/COLOR]
40:

veya ilgili hücredeki (varsa) bütün "T" harfleri silinsin:

If Intersect(Target, Range("B2:B5000")) Is Nothing Then GoTo 40
Cells(Target.Row, "C").Select
[COLOR="Blue"]ActiveCell = Replace(Replace(ActiveCell, "T", ""), "t", "")[/COLOR]
40:

 

[ADER_34]

Çok teşekkür ederim sayın plint kodlarınız sorunsuz çalışıyor,kolay gelsin...