• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Başka Sayfadaki veriyi bul getir ( kod)

H

heromur

Katılım
13 Ekim 2005
Mesajlar
37
Excel Vers. ve Dili
Excel 2012
Arkadaşlar merhabalar

son iki gündür içinden çıkmadığım bir sorun ile karşı karşıyayım lütfen yardım edin. ekte gönderdiğim örnek tablodaki gibi stokları takip ettiğim bir tablom var. Stok numarasını yazıp bul butonuna bastığımda sayfa 2 de bu stok numarasının bulunduğu tüm satırı sayfa1 e kopyala yapıştır yapacak kod u birtürlü bulamadım . yardım ederseniz çok sevinirim

saygılarımla mutlu günler

ömür aydeniz

excell 2007 türkçe
 

Ekli dosyalar

Dosyanız ektedir.:cool:
Kod: 
Private Sub CommandButton1_Click()
Dim k As Range, sat As Long, s2 As Worksheet
Set s2 = Sheets("Sayfa2")
sat = s2.Cells(65536, "B").End(xlUp).Row
Rows(8).ClearContents
If Sheets("Sayfa1").TextBox1.Text = "" Then Exit Sub
Set k = s2.Range("B4:B" & sat).Find(Sheets("Sayfa1").TextBox1.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    s2.Rows(k.Row).Copy
    Rows(8).PasteSpecial
    Application.CutCopyMode = False
End If

End Sub
 

Ekli dosyalar

tşk ederim

Hocam elinize sağlık aradığım tam olarak bu.
değerli vaktinizi ayırdığınız için teşekkür ederim
 
Evren bey Çok Teşekkür ederim
buradaki kodları gökte ararken yerde buldum

Allah Razı Olsun Emek verip caba göstererek yardımcı olanlara
 
Evren bey http://www.excel.web.tr/showthread.php?p=456433#post456433 sayfasında benim sorunum var.

Sizin yukarıda yazdıgınız kodlara gore sayfa 2 de yer alan bir stok koduna herhangi bir köprü verdiğimde ve aynı stok kodunu sayfa 1 de arattırdıgımda sayfa 1 de verdigim köğrü linki ile buluyor. ben de bunu istiyorum ama yapamadım. kodlarınızı inceledim s2.Rows(k.Row).Copy Rows(8).PasteSpecial linkleri getiren bu kodlar mı?
 
MERHABA

ARADIM BULAMADIM ÇÖZÜM OLARAK YENİ KONU AÇMADAN BURAYA YAZMAK İSTEDİM
BİR SORUNUM VAR MAKROLAR BULUNAN BİR ÇALIŞMA SAYFASINDA BUL MAKROSU İLE A1 SUTUNUNDAN VERİYİ BULUYORUM BULDUĞUM VERİYE GÖRE DİĞER SÜTUNLARA EK BİLGİLER GİRİLİYOR YAPMAK İSTEDİĞİM DİĞER VERİLERİ GİRDİKTEN SONRA KAYDETME İŞLEMİNDE G SÜTUNUNDAKİ TARİHE GÖRE AYNI AY İÇERİSİNDE İSE KAYDETMEYEREK UYARI VERECEK AYLAR FARKLI İSE KAYIT EDECEK YANİ OCAK AYI İÇERİSİNDE BİR KEZ GİRİŞ OLACAK OCAK AYI İÇERİSİNE BİRDEN FAZLA GİRİŞ OLMAYACAK ŞEKLİNDE UYARI VERMESİNİ İSTİYORUM .
Belki iyi anlatamamış olabilirim bunun için kodları aşağıya yazıyorum

Private Sub cmdkaydet_Click()
Sheets("musliste").Select
Dim bak As Range
Dim say As Integer
For Each bak In Range("A5:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbtc.Value, vbUpperCase) Then
bak.Select
MsgBox "DAHA ÖNCE MÜSTAHSİL ALIMI YAPILMIŞ İSE KAYITLARINIZI İNCELEYİN BİRDEN FAZLA ALIMVARSA BİRİMLERİ BİRLEŞRİREREK GİRİŞ YAPIN."
Exit Sub
End If
Next bak
say = WorksheetFunction.CountA(Range("A1:A65000"))
Cells(say + 1, 1).Value = cbtc.Value
Cells(say + 1, 2).Value = txtadi.Value
Cells(say + 1, 3).Value = txtsoyadi.Value
Cells(say + 1, 4).Value = txtbabaadi.Value
Cells(say + 1, 5).Value = txtdogumtarihi.Value
Cells(say + 1, 6).Value = txtmusno.Value
Cells(say + 1, 7).Value = cmdbag.Value
Cells(say + 1, 8).Value = txttarih.Value b
Cells(say + 1, 9).Value = txtsut.Value
Cells(say + 1, 10).Value = txtfiyat.Value
MsgBox "MÜSTAHSİL ALIMI BAŞARILI BİR ŞEKİLDE KAYIT EDİLDİ", , "KAYIT"
Cmdtemizle_Click
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst