rafta kalan adeti bulma

[musa_23]

kolag gelsin bende stok programı var makroda yazılmış ve ben buna raf yeri eklemek istiyorum bana textbox sa yazdığım koda karşılık gelen rafları ve bu raflarda kalan adeti vermesini istiyorum şimdiden çook teşekkürler

örnek sheet2 de a sütununda kodlar b sütununda raflar c sütununda adetler eksi ve artı değerli olarak
sunuç texboxsa yadığım kodu listboxta rapor olarak göstermesi

raf adet
a5 5
a4 3


gibi
örnek dosya ektedir

 

[Murat OSMA]

Tam anlamadım ama bu tarz bir çözüm işinizi görür mü ?

■ Module kodları;

Public con As Object
Public Sub baglan()
    Set con = CreateObject("adodb.connection")
    con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=yes"""
End Sub

Sub Emre()
    UserForm1.Show
End Sub

■ UserForm kodları;

Private Sub UserForm_Activate()
    Call baglan
    ComboBox1.Column = con.Execute("select distinct(kod) from [sheet2$] where not isnull(kod)").getrows
End Sub

Private Sub ComboBox1_Change()
    If ComboBox1.Value = Empty Then Exit Sub
    ComboBox2.Clear: ComboBox3.Clear
    ComboBox2.Column = con.Execute("select distinct(raf) from [sheet2$] where kod=" & ComboBox1.Text & "").getrows
End Sub

Private Sub ComboBox2_Change()
    If ComboBox2.Value = Empty Then Exit Sub
    ComboBox3.Clear
    ComboBox3.Column = con.Execute("select adet from [sheet2$] where kod=" & ComboBox1.Text & " and raf=" & ComboBox2.Value).getrows
End Sub

 

[musa_23]

hocam tam olarak bu değil
ben textbox sa yazdığım kodu kod sütununda arıcak ve karşısına gelen rafta kaç adet kaldıysa önce rafı sonra rafta kaç tane kaldığını listboxsa rapor şeklinde yazmasını istiyorum


örnek listboxsa böyle görünmesini istiyorum

raf adet
1 35
2 15

ve bunugibi aşağıya doğruinmesini istiyorum yani ben rafı değil sadece kodu yazcam şimdiden teşekkürler

 

[snx111]

ahanda kodlarınız buyrun

Private Sub ComboBox1_Change()
sonsatir = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))
With UserForm1.ListBox1
.Clear
.ColumnCount = 4
.ColumnWidths = "2;25;35;45"
'.ColumnHeads = True
On Error GoTo theend

For i = 1 To sonsatir
'If x = 1 Then GoTo atla
'x = .ListCount - .ListCount
atla:
x = .ListCount
y = ActiveSheet.Range("a2:a" & sonsatir).Cells(i, 1).Value
If ComboBox1.Text = y Then
.AddItem
.List(x, 1) = ActiveSheet.Range("A" & i + 1)
.List(x, 2) = ActiveSheet.Range("B" & i + 1)
.List(x, 3) = ActiveSheet.Range("C" & i + 1)
'.List(x, 4) = ActiveSheet.Range("D" & i + 1)
'x = x + 1
End If
Next
End With
theend:
Exit Sub
End Sub

Private Sub UserForm_Initialize()
Dim hucre1 As Range, hucre2 As Range
  For Each hucre1 In Range("a1:a200")
  For Each hucre2 In Range("a1:a200")
  If hucre1.Value = "" Then GoTo retrn
   If hucre1.Address = hucre2.Address Then GoTo jump
If hucre1 = hucre2 Then GoTo retrn
Next
jump:
ComboBox1.AddItem hucre1
retrn:
Next
'ComboBox1.RowSource = "A:" & [a65536].End(xlUp).Address
End Sub

 

[musa_23]

hocam bu deyil ama bu benim hareket raporunda çook ama çook işime yarayacak ben farklı yapmıştım ama benim istediğim hareketleri değil rafta kalan adeti ve rafı göstermesi yinede çok teşekkürler.

 

[snx111]

onu belirtseydiniz öyle olurdu 55 ve 63 lerin raf adet toplamından bahsediyorsunuz onuda Formulle en altta toplam sütunu ile hallediverin

 

[musa_23]

hocam tam anlamadim dosya veya kodları eklermisiniz ilginiz için tesekurler