kod girilerek diğer sayfaya veri dizme

[ThEeNCi]

Selamlar

Biraz karışık ama umarım anlatabilirim.İrsaliye numarası verilince data'dan o satır'darki verileri alt alta dizmesi ve müşteri ismini görünce carilerdeki kodu yazması.

Teşekkürler.

 

[Emir Hüseyin Çoban]

Yapilabilir.
Ancak cari isminden cari koda gitmek ters mantik olmus.
Cari kod kisa isimdir. Isme daha kolay ulasmak icin kullanilir.

Data sayfasina sutun ekleyerek cozum uretsek sorun olur mu.
.

 

[ThEeNCi]

Olmaz Evet ters ama öyle lazım oldu

 

[asi_kral]

Olmaz Evet ters ama öyle lazım oldu

Merhaba
Alttaki liste kısmındaki bilgileri hangi sütundan alacaksınız. Yazarsanız yardımcı olmaya çalışalım.

 

[ThEeNCi]

Tarih A İrsaliye U müşteri ismi M Stoklar G Miktarlar I Fiyatlarda P
Cari kod da Cariler A Sutunları

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

A yardımcı sütundaki formülleri ihtiyacınıza göre çoğlatın..

. . .

 

[asi_kral]

Tarih A İrsaliye U müşteri ismi M Stoklar G Miktarlar I Fiyatlarda P
Cari kod da Cariler A Sutunları

Merhaba
Fatura sayfasının kod bölümüne ekleyin.
B1 hücresindeki değişikliğe göre çalışır.
Sonuçları gözlemleyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim S1 As Worksheet, S2 As Worksheet, STR As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("B1")) Is Nothing Then _
Application.ScreenUpdating = True: Exit Sub
Range("B2").ClearContents: Range("B3").ClearContents: Range("B4").ClearContents
Range("A5:F24").ClearContents
With WorksheetFunction
Set S1 = Sheets("Cariler"): Set S2 = Sheets("Data")
Range("B2") = S2.Range("A" & .Match(Range("B1"), S2.Range("U:U"), 0))
Range("B3") = S2.Range("M" & .Match(Range("B1"), S2.Range("U:U"), 0))
Range("B4") = S1.Range("A" & .Match(Range("B3"), S1.Range("B:B"), 0))
STR = S2.Range("A" & Rows.Count).End(xlUp).Row
S2.Range("A6:X" & STR).AutoFilter 21, Range("B1")
S2.Range("G7:G" & STR).Copy
Range("A5").PasteSpecial
S2.Range("I7:I" & STR).Copy
Range("C5").PasteSpecial
S2.Range("I7:I" & STR).Copy
Range("E5").PasteSpecial
S2.Range("A6:X" & STR).AutoFilter
Target.Select
End With
Application.ScreenUpdating = True
End Sub

Formül ile çözüm istiyorsanız ona da çözüm üretilebilir.

 

[ThEeNCi]

Çok teşekkür ederim bir sorum daha olacak B7:X1000 e kadar satırlardaki her şeyi nasıl silebilirim çizgiler ve içerikler her şey

 

[asi_kral]

Çok teşekkür ederim bir sorum daha olacak B7:X1000 e kadar satırlardaki her şeyi nasıl silebilirim çizgiler ve içerikler her şey

Koda böyle bir ilave mi yapmak istiyorsunuz ?
Hangi sayfadaki verileri silmek istiyorsunuz ?

 

[ThEeNCi]

yok bu ayrı

 

[asi_kral]

yok bu ayrı

Bununla silebilirsiniz ?

Sub sil()
Range("B7:X1000").Clear
End Sub

 

[ThEeNCi]

yani hücrelere gelen veriler işim bitince silmek istiyorum

 

[asi_kral]

yani hücrelere gelen veriler işim bitince silmek istiyorum

Anlayamadım.
Faturayı kestikten sonra bu aktarılan bilgiler mi silinecek ?
Yoksa siz istediğiniz zaman mı bu bilgiler silenecek ?

 

[ThEeNCi]

Tamamdır.

Emir Hüseyin Çoban ve Asi_Kral Çok teşekkür ederim.Ellerinize sağlık saygılarımla

 

[asi_kral]

Tamamdır.

Emir Hüseyin Çoban ve Asi_Kral Çok teşekkür ederim.Ellerinize sağlık saygılarımla

Kolay gelsin.