eğer değişirse

[batis]

merhabalar

bir sorun yaşıyorum umarım yardımcı olabilirsiniz. ekte çalıştığım dosyanın ufak bir bölümünü koydum.

J kolonunundaki formul

=BİRLEŞTİR("<line><term><font face=verdana>";H2;"</term><defn><font face=verdana>";I2;"<usg><font face=verdana size=2><br><b>Tatarca:</b><br>";N2;"<br><br><b>Türkçe:</b><br>";M2;"</usg><src><font face=verdana size=2>";G2;"</src></defn></line>")


J kolonu diğer hücrelerdeki değişikliklere bağlı olarak değişiyor. Benim istediğim diğer hücrelerde bir değişiklik olduğu zaman J kolonundan Sayfa2deki A kolonuna aktarılsın istiyorum ancak yalnızca değişmiş olanlar oraya aktarılsın onun dışındakiler aktarılmasın. umarım anlatabildim yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. Sayfa1 B sütunundaki verileri değiştirdiğinizde, sadece değiştirilen satırın karşılığını sayfa2 ye aktarır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
sat = Target.Row
Sheets("sayfa2").Cells(sat, "a") = Cells(sat, "j")
Sheets("sayfa2").Cells(sat, "b") = Cells(sat, "k")
End Sub

 

[batis]

evet istediğim gibi oldu fakat 2. hücreden başlayıp sırayla gitmesini nasıl sağlarım? çünkü bu şekilde yaklaşık 30.000 kelime var. tek tek bulması zor oluyor.

 

[Korhan Ayhan]

Selamlar,

Sn. Levent beyin önerdiği kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
    Satır_1 = Target.Row
    Satır_2 = Sheets("Sayfa2").[A65536].End(3).Row + 1
    Sheets("Sayfa2").Cells(Satır_2, "A") = Cells(Satır_1, "J")
    Sheets("Sayfa2").Cells(Satır_2, "B") = Cells(Satır_1, "K")
End Sub

 

[batis]

peki &#351;&#246;yle bir &#351;ey yapabilir miyiz?

b h&#252;cresinden d h&#252;cresine kadar her hangi bir kelime de&#287;i&#351;ti&#287;inde q s&#252;tununa o g&#252;n&#252;n tarihini ekletmemiz m&#252;mk&#252;n m&#252;

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B2:D65536]) Is Nothing Then Exit Sub
    Satır_1 = Target.Row
    Satır_2 = Sheets("Sayfa2").[A65536].End(3).Row + 1
    If Target.Column = 2 Then
    Sheets("Sayfa2").Cells(Satır_2, "A") = Cells(Satır_1, "J")
    Sheets("Sayfa2").Cells(Satır_2, "B") = Cells(Satır_1, "K")
    End If
    If Target.Column > 2 Or Target.Column <= 4 Then Cells(Satır_1, "Q") = Now
End Sub