Nasıl bir formül uygulaya bilirim

[meric68]

Merhaba resimde açıklama yaptım arama kısmını aktif hale gelmesi ambar değerinin toplamı ve malzeme adet toplamı

 

[Mahir64]

Merhaba resimde açıklama yaptım arama kısmını aktif hale gelmesi ambar değerinin toplamı ve malzeme adet toplamı

Merhaba
Adet İçin K1 Hücresine

=BAĞ_DEĞ_DOLU_SAY(E3:E60000)

Tutar için L1 Hücresine

=TOPLA((F3:F60000))

TextBoxlarda kod mevcut formülleri yazmanız yeterli olacaktır.

 

[meric68]

Teşekkürler

 

[meric68]

pekala arama için nasıl bir formül uygulaya bilirim yani şöyle anlatayım mesela örnek 1000 adet ürün girdim ve ben bunu adresledim sonra bulmam lazım stok no ve malzeme aramaya malzeme adı ve stok noyu yazdıgımda yer adresini göre bilirmiyim resimdede açıklama var

 

[Mahir64]

pekala arama için nasıl bir formül uygulaya bilirim yani şöyle anlatayım mesela örnek 1000 adet ürün girdim ve ben bunu adresledim sonra bulmam lazım stok no ve malzeme aramaya malzeme adı ve stok noyu yazdıgımda yer adresini göre bilirmiyim resimdede açıklama var

Merhaba
özel mesajınıza istinaden
İsimle arama yapmak için

[COLOR=Red]Private Sub TextBox12_Change()[/COLOR]
Dim sat, s As Integer
Dim deg1, deg2 As String
With ListBox1
.Clear
.ColumnCount = 10
.ColumnWidths = "90;310;60;80;55;67"
End With
For sat = 3 To Cells(65536, "B").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "A"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox12, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg2 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "a")
ListBox1.List(s, 1) = Cells(sat, "B")
ListBox1.List(s, 2) = Cells(sat, "C")
ListBox1.List(s, 3) = Cells(sat, "D")
ListBox1.List(s, 4) = Cells(sat, "E")
ListBox1.List(s, 5) = Cells(sat, "F")
s = s + 1
End If: Next
TextBox17 = Sheets("1").Range("K1").Value
TextBox18 = Sheets("1").Range("L1").Value
End Sub

Başlıklı kodu bununla değiştirin.

 

[meric68]

blab lord hata vermekte kodu yazdım en son gönderdiğimde bir denermisin olmadı ya sana zahmet bir ilgilen dün inan 3 te yattım düşüneceğim diye yazık bana yaa

 

[Mahir64]

Diğer başlığa ek yükledim.