tablo birleştirme

[maras57]

Bir firmanın iki ayrı birimine ait stokları farklı iki excel tabosundan veri alarak
bir çalışma kitabında toplamak istiyorum.
veri aldığım iki tabloda aynı ürünler aynı stok koduyla kayıtlı fakat farklı sütun
sıralamasıyla yer alıyor.Ayrıca bazı ürünler bir tabloda (0) veya(-)stok olarak bulunabiliyor.Çalışma kitabında iki birimin stoklarını bitişik sütunlarda ayrı ayrı
görebilmek istiyorum ancak sıralamalar farklı olduğu için kopyala-yapıştır yöntemi
işe yaramıyor.
Farklı çözüm önereceklere ilgisi için şimdiden teşekkür ederim.

 

[Ergün Güler]

Bir firmanın iki ayrı birimine ait stokları farklı iki excel tabosundan veri alarak
bir çalışma kitabında toplamak istiyorum.
veri aldığım iki tabloda aynı ürünler aynı stok koduyla kayıtlı fakat farklı sütun
sıralamasıyla yer alıyor.Ayrıca bazı ürünler bir tabloda (0) veya(-)stok olarak bulunabiliyor.Çalışma kitabında iki birimin stoklarını bitişik sütunlarda ayrı ayrı
görebilmek istiyorum ancak sıralamalar farklı olduğu için kopyala-yapıştır yöntemi
işe yaramıyor.
Farklı çözüm önereceklere ilgisi için şimdiden teşekkür ederim.

Selam,
Sayın maras57,
Foruma hoşgeldiniz. Çalışmanızla ilgili dosya eklerseniz. Daha iyi sonuç alabilirsiniz.
İyi çalışmalar.

 

[maras57]

veri aktarımı ve tablo birleştirme

İlk sorum açıklayıcı olmadı.
A ve B depo stokları ayrı ayrı tutuluyor.Ve stok programımda tabloları excel
formatında açabiliyorum.İki tablodada ürün stok kodları aynı ancak sütun sıralamaları farklı.Dolayısıyla kopy-yapıştır yapamıyorum.
isteğim A ve B tablolarındaki stok verilerini çalışma kitabında birarada ve her açtığımda güncelleyerek nasıl görebilirim.
cevaplar için şimdiden teşekkür ederim.

 

[Ergün Güler]

İlk sorum açıklayıcı olmadı.
A ve B depo stokları ayrı ayrı tutuluyor.Ve stok programımda tabloları excel
formatında açabiliyorum.İki tablodada ürün stok kodları aynı ancak sütun sıralamaları farklı.Dolayısıyla kopy-yapıştır yapamıyorum.
isteğim A ve B tablolarındaki stok verilerini çalışma kitabında birarada ve her açtığımda güncelleyerek nasıl görebilirim.
cevaplar için şimdiden teşekkür ederim.

Selam,
Dosyanız ektedir. İnceler misiniz?
"Çalışma kitabı" adlı dosyanızın sayfa1'indeki "güncelle" düğmesine basmanız yeterlidir.
tablo1 ve tablo2 kitaplarınızı açmaya gerek yoktur. otomatik açıp güncelleme sonrası otomatik kapanacaktır.
Yanlız her 3 dosya aynı klasör içinde olmalıdır. Farklı yerlerde olursa kodları ona göre düzenleye bilirsiniz.

Sub stok_guncelle()
Dim tb1 As Worksheet
Dim tb2 As Worksheet
Dim syf As Worksheet
Dim bulunan1 As Range
Dim bulunan2 As Range

Application.ScreenUpdating = False

Workbooks.Open ThisWorkbook.Path & "/tablo1.xls"
Workbooks.Open ThisWorkbook.Path & "/tablo2.xls"

Set tb1 = Workbooks("tablo1").Worksheets("Sayfa1")
Set tb2 = Workbooks("tablo2").Worksheets("Sayfa1")
Set syf = ThisWorkbook.Worksheets("Sayfa1")

syf_son = syf.Range("A65536").End(3).Row

syf.Range("C3:E65536").ClearContents
For i = 3 To syf_son

aranan = syf.Cells(i, "A")

Set bulunan1 = tb1.Range("A3:A65536").Find(aranan, , xlValues, xlWhole)
Set bulunan2 = tb2.Range("A3:A65536").Find(aranan, , xlValues, xlWhole)

If Not bulunan1 Is Nothing Then
syf.Cells(i, "C") = tb1.Cells(bulunan1.Row, "C")
syf.Cells(i, "E") = syf.Cells(i, "C") + syf.Cells(i, "D")
End If

If Not bulunan2 Is Nothing Then
syf.Cells(i, "D") = tb2.Cells(bulunan2.Row, "C")
syf.Cells(i, "E") = syf.Cells(i, "C") + syf.Cells(i, "D")
End If

Next

Workbooks("tablo1").Close
Workbooks("tablo2").Close

Application.ScreenUpdating = True

MsgBox "Sayın " & Environ("username") & "," & vbLf _
& "Stok Güncellemesi Tamamlanmıştır.", vbInformation, "GÜNCELLEME İŞLEMİ.....Created by Ergün Güler"
End Sub

İyi çalışmalar.

 

[maras57]

Makroyu çalştırdığımda "400" hata kodu veriyor.

 

[maras57]

Sub Makro1 ()
'
'Makro1 Makro
'
' Range("E8").Select
Windows çalışma kitabı_çözüm.xlsm").Activate
Activate Window.Close
Range("F6").Select
End Sub

 

[Ergün Güler]

Makroyu çalştırdığımda "400" hata kodu veriyor.

Selam,
Tablo1 ve Tablo2 kitabı ile çalışma kitabı adlı kitap aynı klasör içinde olmazsa 400 hatasını veriyor. 3 kitap da aynı klasör içinde olmalıdır veya kodları bulunduğu klasöre göre uyarlamalısınız.

Diğer bir konu; son gönderdiğiniz kodlar ile ne anlatmak istiyorsunuz? anlayamadım.
İyi çalışmalar.