stok takip

[cengizozkan]

Yardım edecek kimse yok mu

Merhaba kusura bakmayın sizi yine rahatsız ediyorum ama bu son rahatsız edişim olucak inşallah

malzeme çıkışı yaparken arama yaparak çıkış yapmak istiyorum yani malzeme çıkış yerinde malzemeyi çıkış yaparken malzeme giriş sayfasında malzeme sütununda arayıp bulacak

malzeme giriş sayfasında giriş yaparken liste sayfasından mazlemeyi bulacak

eğer yardım edersen çok sevinirim belki biraz fazla oldum ama gerçekten gerekli olduğu için istiyorum şimdiden teşekkürler

 

[cengizozkan]

Sub SearchText()
Dim SearchString, SearchChar, MyPos
SearchChar = "salut"
For Each cell In Range("A1:A11")
SearchString = cell.Text
MyPos = InStr(SearchString, SearchChar)

If MyPos > 0 Then
MsgBox ("Mot trouvé")
MsgBox "Mot trouvé à cette adresse: " & cell.Address
cell(1, 2).Value = "(salut) est sur cette ligne"
End If
Next
End Sub




Sub Asteriks()
Dim i As Integer
Dim j As Integer
Dim Sayac As Integer
Dim SinananVeri As String
Veri = InputBox("Aranan Veriyi Belirtiniz", "ARANAN VERİ", "")
SinananVeri = "*" & Veri & "*"
Set Say1 = Worksheets("Sayfa1")
Set Say2 = Worksheets("Sayfa2")
j = 1
For i = 1 To 10
If WorksheetFunction.CountIf(Say2.Cells(i, 1), SinananVeri) > 0 Then
Say1.Cells(j, 1) = Say2.Cells(i, 1)
Sayac = Sayac + 1
j = j + 1
End If
Next i
MsgBox Say2.Name & "'de aramış olduğunuz " & Veri & " verisini içeren toplam " & Sayac & " adet hücre değeri bulundu ve " & Say1.Name & "'de listelendi."
End Sub


UserForma Bir TextBox1 ve CommandButton1 ekliyerek aşağıdaki kodları CommandButtonu clikliyerek açacağınız kod sayfasına yazın.

Private Sub CommandButton1_Click()
Dim i As Byte
If Len(TextBox1) > 0 Then
For i = 1 To Worksheets.Count
Call Myxxrt(Worksheets(i).Name)
Next
End If
End Sub

Private Function Myxxrt(ShName As String)
Dim MyRng As Range
On Error Resume Next
Set MyRng = Range(Sheets(ShName).Cells.Find(TextBox1, LookAt:=xlWhole).Address)
MsgBox "Aranılan değer " & ShName & " sayfasında " & MyRng.Address(False, False) & " hücresinde bulundu !"
Set MyRng = Nothing
End Function


BUNLAR OLUR MU YADA BUNLARI EKLEYE BİLİRMİSİNİZ

 

[1Al2Ver]

Merhaba kusura bakmayın sizi yine rahatsız ediyorum ama bu son rahatsız edişim olucak inşallah

malzeme çıkışı yaparken arama yaparak çıkış yapmak istiyorum yani malzeme çıkış yerinde malzemeyi çıkış yaparken malzeme giriş sayfasında malzeme sütununda arayıp bulacak

malzeme giriş sayfasında giriş yaparken liste sayfasından mazlemeyi bulacak

eğer yardım edersen çok sevinirim belki biraz fazla oldum ama gerçekten gerekli olduğu için istiyorum şimdiden teşekkürler

Merhaba,

İstedikleriniz, gerek Malz.Çıkışı gerekse Malz.Girişi sayfalarındaki açılır kutulardan gerçekleşmektedir.

Yine isteğiniz üzere, sayfalara "ARA" düğmeleri yerleştirmiştik, bu iki çözüm yeterli olmadı sanırım,

Bir malzemenin çıkışını yada girişini yaparken zorlanmamak ve her defasında malzemeyi aynı isimle yazmak adına, açılır kutular bu hizmeti görmektedir, ancak yine de aynı işi gören farklı bir çözüm arıyorsanız, ben yardımcı olamayacağım,sitede gerek uzman gerekse konusunda ileri düzeyde birçok üyemiz size yardımcı olabilir,

Teşekkür ederim.

 

[cengizozkan]

sn hocam

malzeme çıkışında ki ara butonu malzemeyi malzeme giriş sayfasından aramasını istiyorum son kez bakarsanız sevinirim baa sizden başkası biraz zor yardım eder