Satır Kopyalama İçin Yardım!

[delii123]

yapmaya çalıştığım işlem çok basit galiba ama bi türlü yapamadım.

A3 hücresine 10
B3 hücresine 20 yazdım

C3 hücereinde bu ikisini çarptım veya topladım herhangi bir işlem olabilir önemli değil C3 de yazan sonucu başka bir sütunda oluşturduğum tarihin karşısına yazmasını istiyorum

ben A3 ve B3 hücresine sürekli yeni değerler girecem ama o benim girdiğim değerleri daha önce G3 e yazmıştı G3 dekini değiştirmeden G4 , G5 böyle satır satır alt alta yazarak devam etmesini istiyorum.

umarım anlatabilmişimdir. örnek olarak ekteki dosyayı koydum. yardımlarınız şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Dosyanızın türünü manuel değiştirmeden, farklı kaydet den 2003 formatında yada sadece 2007 formatında eklermisiniz..

.

 

[delii123]

ekte düzgün kaydedilmiş olanı yükledim

 

[Ömer]

Çalışma sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim son As Long
    
    If Intersect(Target, [A3:B3]) Is Nothing Then Exit Sub
   
    son = Cells(Rows.Count, "G").End(xlUp).Row + 1
    Range("G" & son) = Range("C3")
    
End Sub

.

 

[delii123]

hocam eline sağlık kod çalışıyor. fakat şöyle yapabilmemiz mümkünmü a3 ve b3 ten herhangi biri değilde ikisi beraber değiştirilme şartı koysak oraya. yani hem a3 hemde b3 değişiminden sonra ortaya çıkacak olan yeni değeri g sütununa aktarabilirmi.

 

[Ömer]

Çalışma sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim Son As Long
    
    If Intersect(Target, [A3:B3]) Is Nothing Then Exit Sub
    If Not a = [A3] And Not b = [B3] Then
        Son = Cells(Rows.Count, "G").End(xlUp).Row + 1
        Range("G" & Son) = Range("C3")
        a = [A3]
        b = [B3]
    End If
    
End Sub
'----------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A3:B3]) Is Nothing Then Exit Sub
    If Target.Column = 1 Then
        a = Target.Value
    Else
        b = Target.Value
    End If
End Sub

ThisWorkbook sayfasına;

Private Sub Workbook_Open()
    a = Sheets("Sayfa1").[A3]
    b = Sheets("Sayfa1").[B3]
End Sub

Module;

Option Explicit

Public a As Long
Public b As Long

.

 

[delii123]

yardımların için çok teşekkürler tam istediğim gibi oldu saolasın.