Userform ile sevkıyat

[cimbom05]

:yardim:İyi akşamlar Üstadlar,
Aşağıda eklemiş olduğum iki adet excel dosyası arasında günde ortalama yüz civarında bilgi alış verişi yapılıyor. Bu işlemin fonksiyon ve makronun olmadığı durumlarda insan aracılığı ile yapmanın ne demek olduğunu anlatamam. Yorgunluk bir yana oluşan hatalar ve bu hataların tek sebebinin personel olması ne gibi sonuçlar doğurabilir tahmin etmişsinizdir. (Özellikle bugünün Türkiye'sinde):hey:
Yapmak istediğimi ekteki sevk formu üzerinde anlatmaya çalıştım. Fonksiyonları kullanarak (özelikle düşeyara ile bir çok işlemi kolaylaştırdığımı zannediyorum ama sonrasına benim ve düşeyaranın kapasitesi yetersiz kaldığı için sizlerin yardımına başvurmayı uygun gördüm. Konu ile ilgilenen herkese çok teşekkür ederim.

 

[cimbom05]

iyi akşamlar,
konuya hiç bakan olmadı mı? Acaba.

 

[cimbom05]

İyi akşamlar arkadaşlar, bu konu ile fikri olan yok mu acaba.

 

[cimbom05]

İyi akşamlar arkadaşlar bu konuda yapılabilecek bir şeyler yok mu?

 

[cimbom05]

İyi günler,
Bu konuya saçma diyecek, olmaz diyecek kimse yok mu?

 

[cimbom05]

İyi akşamlar Arkadaşlar
Bu konu ile ilgili yardımcı olabilecek kimse var mı acaba? İlgilenen herkese teşekkürler.

 

[cimbom05]

İyi akşamlar olumlu yada olumsuz bir cevap bekliyorum. Fonksiyonlarla bu işlemi kısmen yapıyorum ancak makro için oldukça acemiyim. Bu işlem olmadan dosya boyutu oldukça yüksek bu işlemde devreye girdiğinde pc anormal derecede kasıyor.
Eğer bu işlemin yapılamamsının nedeni stok ve sevk form dosyalarının farklı iki dosya olması ise birleştirilmiş olarak ekliyorum. Teşekkürler

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim k As Range, adrs As String
ListBox1.Clear
With Sheets("STOK")
If ComboBox1.Value = "" Then Exit Sub
Set k = .Range("G2:G65536").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adrs = k.Address
    Do
        If .Cells(k.Row, "X").Value <> "" And .Cells(k.Row, "X").Value > 0 Then
            ListBox1.AddItem
            ListBox1.List(ListBox1.ListCount - 1, 0) = .Cells(k.Row, "A").Value
            ListBox1.List(ListBox1.ListCount - 1, 1) = Format(.Cells(k.Row, "X").Value, "#,##0")
        End If
        Set k = .Range("G2:G65536").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adrs
End If
End With
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim hcr As Range
ListBox1.ColumnCount = 2
For Each hcr In Sheets("SEVK FORM").Range("G2:G" & _
Sheets("SEVK FORM").Cells(65536, "G").End(xlUp).Row)
    If WorksheetFunction.CountIf(Sheets("SEVK FORM").Range("G2:G" & hcr.Row), hcr.Value) = 1 Then
        ComboBox1.AddItem hcr.Value
    End If
Next hcr
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

 

[cimbom05]

Sn. Evren GİZLEN,
Öncelikle emeğiniz için teşekkür ederim. Listboxta görülen verilerden seçtiğim bir veya daha fazla veriyi sorgulanan ürünün bulunduğu satırın "C" sütununa aktarmam gerekiyor. Userform açıkken bu sayfada çalışabilme imkanım olsa buna gerek olmayacak ama her defasında buradaki veriyi sayfaya yapıştırmak veya yazmak için formu kapatmam gerekiyor. Buna bir çözüm bulunabilir mi? Tekrar teşekkürler.

 

[Orion1]

Simge durumuna getirip çalışma sayfası üzerinde işlem yapabilirsiniz.
Dosya ekte.

 

[cimbom05]

Her şey için teşekkürler. Gecenin bu saatinde sorunumla sizleri yorduğum için kusuruma bakmayın.

 

[Orion1]

Her şey için teşekkürler. Gecenin bu saatinde sorunumla sizleri yorduğum için kusuruma bakmayın.

Estafurullah,iyi geceler.

 

[cimbom05]

İyi günler, bu form üzerinde görünen A sütunu bilgileri ve X sütunundaki 0 büyük değerler görünüyor. Bu kodda bir değişiklik yapmak istiyorum. Şöyle ki;
Bu form üzerinde A sütunu bilgilerinin yanı sıra V "veya" X sütunundaki 0'dan büyük değerlerin gösterilmesini istiyorum. Bunun için ne gibi bir değişiklik önerirsiniz. Örneğin;

A sütunu_______________V sütunu________X sütunu
RK041 2221 401___________0______________1500
RK041 2221 401_________1250______________0
şeklinde. Önemli olan ise bu değişikliği yaparken formun diğer fonksiyonlarından bir değişiklik olmaması.
Teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

 

[cimbom05]

Sayın Evren Gizlen çok teşekkür ederim.

 

[Orion1]

Sayın Evren Gizlen çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.