• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

aynı anda iki formül çalıştırma

O

osmanucel

Katılım
26 Ocak 2010
Mesajlar
190
Excel Vers. ve Dili
2010 turkçe
aynı sayfada ıkı ayrı formul kullanmak ıstıyorum
işin içinden çıkamadım yardımcı olabılırmısınız

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long
On Error Resume Next
If Intersect(Target, Range("O18:O" & Rows.Count)) Is Nothing Then Exit Sub
sat = Sheets("BAĞLANTI ALIŞ").Cells(Rows.Count, "A").End(xlUp).Row + 1
If Target.Value <> "" Then
Sheets("BAĞLANTI ALIŞ").Cells(sat, "A").Value = Target.Offset(0, -14).Value
Sheets("BAĞLANTI ALIŞ").Cells(sat, "B").Value = Target.Offset(0, -13).Value
Sheets("BAĞLANTI ALIŞ").Cells(sat, "C").Value = Target.Offset(0, -12).Value
Sheets("BAĞLANTI ALIŞ").Cells(sat, "D").Value = Target.Offset(0, -10).Value
Sheets("BAĞLANTI ALIŞ").Cells(sat, "E").Value = Target.Offset(0, -9).Value
Sheets("BAĞLANTI ALIŞ").Cells(sat, "F").Value = Target.Offset(0, -7).Value
Sheets("BAĞLANTI ALIŞ").Cells(sat, "G").Value = Target.Offset(0, -6).Value
Sheets("BAĞLANTI ALIŞ").Cells(sat, "H").Value = Target.Offset(0, -5).Value
Sheets("BAĞLANTI ALIŞ").Cells(sat, "I").Value = Target.Offset(0, -3).Value
Sheets("BAĞLANTI ALIŞ").Cells(sat, "J").Value = Target.Value
End If


If Intersect(Target, Range("P18:P" & Rows.Count)) Is Nothing Then Exit Sub
sat = Sheets("BAĞLANTI SATIŞ").Cells(Rows.Count, "A").End(xlUp).Row + 1
If Target.Value <> "" Then
Sheets("BAĞLANTI SATIŞ").Cells(sat, "A").Value = Target.Offset(0, -14).Value
Sheets("BAĞLANTI SATIŞ").Cells(sat, "B").Value = Target.Offset(0, -13).Value
Sheets("BAĞLANTI SATIŞ").Cells(sat, "C").Value = Target.Offset(0, -11).Value
Sheets("BAĞLANTI SATIŞ").Cells(sat, "D").Value = Target.Offset(0, -10).Value
Sheets("BAĞLANTI SATIŞ").Cells(sat, "E").Value = Target.Offset(0, -9).Value
Sheets("BAĞLANTI SATIŞ").Cells(sat, "F").Value = Target.Offset(0, -7).Value
Sheets("BAĞLANTI SATIŞ").Cells(sat, "G").Value = Target.Offset(0, -6).Value
Sheets("BAĞLANTI SATIŞ").Cells(sat, "H").Value = Target.Offset(0, -4).Value
Sheets("BAĞLANTI SATIŞ").Cells(sat, "I").Value = Target.Offset(0, -2).Value
Sheets("BAĞLANTI SATIŞ").Cells(sat, "J").Value = Target.Value
End If

MsgBox "BAĞLANTI KAYDEDİLDİ" & vbLf & "KARTALLAR D.Ç.", vbOKOnly + vbInformation, Application.UserName
End Sub
 
Merhaba,

Sorunuzu örnek dosya ile destekleyip yapmak istediğiniz işlemi açıklar mısınız?
 
Hocam dosyayı yukleyemedımde benım ıstedıgım
o sütununa verı gırıldıgınde satırı bağlantı alış sayfasına p sütununa veri girildiginde satırı bağlantı satış a kopyalamasını ıstıyorum ama düzenleyemedım yardımcı olabılırmısınız
 
Aşağıdaki gibi deneyin.

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sat As Long
    On Error Resume Next
    If Intersect(Target, Range("O18:P" & Rows.Count)) Is Nothing Then Exit Sub
    If Target.Column = 15 Then
        sat = Sheets("BAĞLANTI ALIŞ").Cells(Rows.Count, "A").End(xlUp).Row + 1
        If Target.Value <> "" Then
            Sheets("BAĞLANTI ALIŞ").Cells(sat, "A").Value = Target.Offset(0, -14).Value
            Sheets("BAĞLANTI ALIŞ").Cells(sat, "B").Value = Target.Offset(0, -13).Value
            Sheets("BAĞLANTI ALIŞ").Cells(sat, "C").Value = Target.Offset(0, -12).Value
            Sheets("BAĞLANTI ALIŞ").Cells(sat, "D").Value = Target.Offset(0, -10).Value
            Sheets("BAĞLANTI ALIŞ").Cells(sat, "E").Value = Target.Offset(0, -9).Value
            Sheets("BAĞLANTI ALIŞ").Cells(sat, "F").Value = Target.Offset(0, -7).Value
            Sheets("BAĞLANTI ALIŞ").Cells(sat, "G").Value = Target.Offset(0, -6).Value
            Sheets("BAĞLANTI ALIŞ").Cells(sat, "H").Value = Target.Offset(0, -5).Value
            Sheets("BAĞLANTI ALIŞ").Cells(sat, "I").Value = Target.Offset(0, -3).Value
            Sheets("BAĞLANTI ALIŞ").Cells(sat, "J").Value = Target.Value
        End If
    End If
    
    If Target.Column = 16 Then
        sat = Sheets("BAĞLANTI SATIŞ").Cells(Rows.Count, "A").End(xlUp).Row + 1
        If Target.Value <> "" Then
            Sheets("BAĞLANTI SATIŞ").Cells(sat, "A").Value = Target.Offset(0, -14).Value
            Sheets("BAĞLANTI SATIŞ").Cells(sat, "B").Value = Target.Offset(0, -13).Value
            Sheets("BAĞLANTI SATIŞ").Cells(sat, "C").Value = Target.Offset(0, -11).Value
            Sheets("BAĞLANTI SATIŞ").Cells(sat, "D").Value = Target.Offset(0, -10).Value
            Sheets("BAĞLANTI SATIŞ").Cells(sat, "E").Value = Target.Offset(0, -9).Value
            Sheets("BAĞLANTI SATIŞ").Cells(sat, "F").Value = Target.Offset(0, -7).Value
            Sheets("BAĞLANTI SATIŞ").Cells(sat, "G").Value = Target.Offset(0, -6).Value
            Sheets("BAĞLANTI SATIŞ").Cells(sat, "H").Value = Target.Offset(0, -4).Value
            Sheets("BAĞLANTI SATIŞ").Cells(sat, "I").Value = Target.Offset(0, -2).Value
            Sheets("BAĞLANTI SATIŞ").Cells(sat, "J").Value = Target.Value
        End If
    End If
    
    MsgBox "BAĞLANTI KAYDEDİLDİ" & vbLf & "KARTALLAR D.Ç.", vbOKOnly + vbInformation, Application.UserName
End Sub
 
Hocam cok teşekkür ederim allah 1000 defa razı olsun
 
Sn. osmanucel bu kodları kullandığınız örnek dosyanızı görme şansımız varmı, bir mahsuru yoksa eklerseniz sevinirim.
 
Selam ekleyım

Kullanıcı adı büyük harflerle
osmanücel
şifre 85424658
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst