arama sonucu verilerin diğer sayfaya yazılması

[efturgut]

Arkadaşlar. çalışma 2 sayfadan oluşmakta .istediğim şu. Fiş no yazdığım zaman bana bütün verileri sıralıyor fakat aramayı yaptığımda teslimfisi sayfasında oluşturmuş olduğum fişe bu bilgilerin yazılmasını istiyorum. Bu konuda takıldım. Yardımcı olursanız çok sevinirim.
Bu çalışmayı exper cari hesap programından editlemekteyim. uygulamayı yapan arkadaşa çok teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Forumda işlenmiş DÜŞEYARA konularını inceleyin. Ben bir hücre için olan formülü veriyorum. Siz formüldeki kırmızı değeri azaltarak ya da arttırarak diğer bilgileri almayı deneyiniz.

F2 hücresine;

=DÜŞEYARA($F$1;ACV!$A$11:$I$65536;[COLOR=red]3[/COLOR];0)

 

[efturgut]

korhan bey ilginiz için teşekkürler. düşeyara mantığını biliyorum fakat.yapamadığım konu şu.
ACV sayfasında textbox1 kutusu var bu kutuya fiş no yazdığım zaman bana o fiş numaralı kaydı çıkartıyor ve ben o kayıttaki bilgilerin teslimfisi sayfasına aktarılmasını istiyorum. bu konuda yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

ACV sayfasında her fişten bir adetmi var?

 

[efturgut]

korhan bey. acv sayfasında her fişten bir adet bulunmakta. teslim fişi sayfasında ise 1 sayfada 2 adet fiş çıktısı alınacak.teşekkürler

 

[Korhan Ayhan]

Selamlar,

TextBox1 nesnesindeki kodunuzu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub TextBox1_Change()
    Dim BUL As Range
    On Error Resume Next
    SONUC2 = TextBox1.Value
    Set FC2 = Range("A10:A65500").Find(What:=SONUC2)
    Application.Goto Reference:=Range(FC2.Address), _
       Scroll:=False
    Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value
    
    If WorksheetFunction.CountIf(Range("A:A"), TextBox1) > 0 Then
    Set BUL = Range("A:A").Find(TextBox1, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    With Sheets("teslimfisi")
        .Range("F1") = TextBox1
        .Range("F2") = BUL.Offset(0, 2)
        .Range("F3") = BUL.Offset(0, 3)
        .Range("F4") = BUL.Offset(0, 4)
        .Range("B7") = BUL.Offset(0, 1)
        .Range("A11") = BUL.Offset(0, 5)
        .Range("D11") = BUL.Offset(0, 6)
        .Range("E11") = BUL.Offset(0, 7)
        .Range("F11") = .Range("D11") * .Range("E11")
        .Range("G11") = BUL.Offset(0, 8)
    End With
    End If
    End If
End Sub

 

[efturgut]

Korhan bey teşekkür ederim. sizler sayesinde çok güzel bir çalışma oluyor. çalışmanın bitmesi için son bir işlem kaldı.
ACV sayfamda yazdır butonu bulunmakta yazdır dediğimde teslimfisi sayfasında seçili alanı yazdırmakta.bunda herhangi bir problem yok.fakat teslimfişi sayfasını her yazdırdığında fiş numarasının her seferinde otomatik değişmesini istiyorum.güncel dosya ektedir.

 

[Korhan Ayhan]

Selamlar,

Yazdırma işlemini yapan butonunuzdaki kodu aşağıdaki kodla değiştirip denermisiniz.

Private Sub CommandButton2_Click()
    If Worksheets("teslimfisi").Range("F1") = "" Then
        Worksheets("teslimfisi").Range("F1,F28") = 1
    Else
        Worksheets("teslimfisi").Range("F1,F28") = Worksheets("teslimfisi").Range("F1") + 1
    End If
    ActiveSheet.PageSetup.BlackAndWhite = True
    Worksheets("teslimfisi").PrintPreview
    Sheets("ACV").Select
End Sub

 

[efturgut]

Korhan bey tşkr ederim. olmuş fakat tek problem şu. sayfayı korumalı yaptığım için hata veriyor. bunu nasıl çözeriz.

 

[efturgut]

korhan bey kusura bakmayın. problemi çözdüm. teslimfisi sayfasında korumayı kaldırınca çözüldü problem. tekrar çok teşekkür ederim.