sayfa1 de girdiğim bilgileri sayfa2

[sefkatsenol]

Arkadaşlar sayfa 1 de girdiğim bilgileri sayfa 2 de alt alta liste yapmak istiyorum.Formülünü bulamadım yardımcı olursanız sevinirim.

 

[RFspur]

Merhaba,

İsteğinizi tarif eden bir örnek dosya ekleyiniz.

 

[sefkatsenol]

Arkadaşlar sayfa 1 de girdiğim bilgileri sayfa 2 de alt alta liste yapmak istiyorum.Formülünü bulamadım yardımcı olursanız sevinirim

 

[Necdet]

Merhaba,

Aşağıdaki kodları Sayfa1'in kod bölümüne kopyalayınız.
C9 hücresinde herhangi bir değişiklik olduğunda bilgileri Sayfa2'ye otomatik olarak aktarılacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C9]) Is Nothing Then Exit Sub
If Application.WorksheetFunction.CountBlank(Range("C4:C9")) <> 0 Then
    MsgBox "Tüm Bilgiler Girilmemiş " & WorksheetFunction.CountBlank(Range("C4:C9"))
    Exit Sub
End If
Dim sat As Long
sat = Sheets("Sayfa2").[A65536].End(3).Row + 1
Range("C4:C9").Copy
Sheets("Sayfa2").Range("A" & sat).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
Application.CutCopyMode = False
Application.EnableEvents = False
Range("C4:C9").ClearContents
Application.EnableEvents = True
End Sub

 

[sefkatsenol]

çok teşekkür ederim.Sağol
Ben formülllerle yapmayı deniyordum.Yardımına teşekkürler.