Listele ve aktar..!

[unalh]

S.a Arkadaşlar,

Bir programdan excel'e verileri alıyorum.

Burada yapılmak istenen sayfa1 deki verileri gönder butonuna basınca gelen formda büyük,küçük veya eşit
(Alacak Bak) sütunu baz alınacak.
text lerinde yazılı olan kritere göre sayfa2'ye aktarması. Aktarma yapılırken aşağıdaki şekli ile aktarması gerekiyor.

Sayfa1'de olan şekli...

Cari Kod Cari İsim İl İlçe / İl Telefon Borç Alacak Borç Bak. Alacak Bak.
S160001 DENEME-----------1 BURSA YILDIRIM 5.500,00 5.812,50 0 312,5

Sayfa2'de olancak şekli...
Cari Kod Cari İsim Borç Bak. Alacak Bak.
S160001 DENEME-----------1 - 312,50

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, sat As Long, list()
If Not IsNumeric(TextBox1.Text) Then
    MsgBox "Filtreleme yapılmadı." & vbLf & "Kutuya sayısal bir değer giriniz.", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
Sheets("Sayfa1").Select
Set sh = Sheets("Sayfa2")
Application.ScreenUpdating = False
sh.Range("A:D").ClearContents
Range("A1").AutoFilter
sat = Cells(65536, "A").End(xlUp).Row
If ComboBox1.Value = "Büyük" Then
    Range("A1").AutoFilter field:=9, Criteria1:=">" & CDbl(TextBox1.Text)
End If
If ComboBox1.Value = "Küçük" Then
   Range("A1").AutoFilter field:=9, Criteria1:="<" & CDbl(TextBox1.Text)
End If
If ComboBox1.Value = "Eşit" Then
    Range("A1").AutoFilter field:=9, Criteria1:=CDbl(TextBox1.Text)
End If
Range("A1:B" & sat & ",H1:I" & sat).SpecialCells(xlCellTypeVisible).Copy
sh.Range("A1").PasteSpecial
Application.CutCopyMode = False
Range("A1").AutoFilter
Unload Me
sh.Select
Range("A1").Select
End Sub

 

[unalh]

Evren hocam çok teşekkür ederim.


Hayırlı işler.

 

[Orion1]

Evren hocam çok teşekkür ederim.


Hayırlı işler.

Rica ederim.
Sizede hayırlı işler.

 

[unur]

Arkadaşlar yaklaşık benzer bir soru; benim çalışma kitabının
Sayfa1 de
Sıra nu/gelen - giden/geliş şekli/dosya nu/geldiği makam/GİTTİĞİ MAKAM/konusu/evrak tarihi/gizlilik derecesi/TESLİMAT/geliş tarihi/miat tarihi
1/gelen/mesaj/mly.:3730-11111-16/değerlendirme şb/DERECELENDİRME Ş./Sınav sonucu/15.01.2016/h.ö/YAPILDI

Sayfa2 de ise
Sıra nu/Dosya nu/GİTTİĞİ MAKAM/Konusu/Evrak tarihi/Teslim tarihi ve saati/Teslim alan adı soyadı/İmza

Yapmak istediğim Sayfa2 ye,Sayfa1 den gittiği makama göre teslimat hanesinden "YAPILDI" yazmayanları listelemek ve yazıcıdan çıktı aldığımızda iseSayfa1 teslimat hanesine YAPILDI yazılmasını sağlayabilirmiyiz?
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[unur]

Günaydın arkadaşlar, güncellemek için.

 

[unur]

Bu konuda yardımcı olacak arkadaş yokmu?

 

[unur]

Mrb,Bu konuda fikri olan arkadaş yok mu?
Teşekkürler.