isme göre veri aktarma

[eseseski]

vermiş olduğum örnekte teslimat sayfasında firma sütununa isimlerini girdiğimizde firmaların kendi sayfalarına verilerini nasıl aktarabiliriz? bilgisi olanlar yardımcı olabilir mi?

 

[Necdet]

Merhaba,

TESLİMAT sayfasında veri girildiği an mı aktarılacak, yoksa gün sonunda topluca mı aktarılacak?

Aktardıktan sonra Veriler kalacak mı, silinecek mi?

 

[eseseski]

veri girildikten sonra aktarılacak ve veriler kalacak,silinmeyecek.

 

[eseseski]

veri girildiği an aktarılacak ve silinmeyecek

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne bu kodu kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim S1 As Worksheet, STR As Long
Set S1 = Sheets(Cells(Target.Row, "A").Text)
Application.EnableEvents = False
Application.ScreenUpdating = False
If Target.Column = 2 Then
If Intersect(Target, Range("B:B")) Is Nothing Then _
Application.ScreenUpdating = True: Application.EnableEvents = True: _
Exit Sub
STR = S1.Range("B" & Rows.Count).End(xlUp).Row + 1
S1.Cells(STR, "B") = Target
ElseIf Target.Column = 3 Then
If Intersect(Target, Range("C:C")) Is Nothing Then _
Application.ScreenUpdating = True: Application.EnableEvents = True: _
Exit Sub
STR = S1.Range("A" & Rows.Count).End(xlUp).Row + 1
S1.Cells(STR, "A") = Target
ElseIf Target.Column = 4 Then
If Intersect(Target, Range("D:D")) Is Nothing Then _
Application.ScreenUpdating = True: Application.EnableEvents = True: _
Exit Sub
STR = S1.Range("C" & Rows.Count).End(xlUp).Row + 1
S1.Cells(STR, "C") = Target
End If
Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

 

[eseseski]

sayın asi kral öncelikle ilginize teşekkür ederim ama ben kodu çalıştıramadım
teslimat sayfasına kodu girdiğimde Set S1 = Sheets(Cells(Target.Row, "A").Text) mısrasını hata işaret ediyor

 

[antonio]

sayın asi kral öncelikle ilginize teşekkür ederim ama ben kodu çalıştıramadım
teslimat sayfasına kodu girdiğimde Set S1 = Sheets(Cells(Target.Row, "A").Text) mısrasını hata işaret ediyor

Sayın asi_kral'ın kodu sorunsuz çalışıyor.

 

[eseseski]

bunu formülle yapmak mümkün değil midir acaba

 

[asi_kral]

bunu formülle yapmak mümkün değil midir acaba

Merhaba
1. Formülle yapılabilir ama dosyadaki veriler çoğaldığında formüller dosyayı şişirecektir ve dosyada işlem yapılamaz hale gelecektir.
2. Siz zaten makro istemişsiniz.