• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü sap işlemleri

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
M

MUSTAFAA

Yeni Üye
Katılım
7 Ağu 2022
Mesajlar
116
Aldığı beğeni
4
Excel V
Office 2016 TR
Konu Sahibi
merhabalara ekte size bir dosya paylkaşmaktaYm dosyanın içinde sap den dosyayı almaktadır. sonrasında aldığı dosyaları excele direk aktarmasını rica ediyorum bunun için nasıl bir yol izlemem gereklidir excel sayfamda yan olarak 4 adet sayfa açması


DOSYA İSİMLERİ :
fns1-9-2021.xls
fns1-9-2022.xls
fns-9-9-2021.xls
fns-9-9-2022.xls

sAYFA İSİMLERİDE AYNI OLMASINI İSTEMEKTEYİM.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
excel sayfası mı excel çalışma kitabı mı açmak istiyorsunuz? sayfa demişsiniz ama workbook ismi yazmışsınız
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
4 adet dosya var isimleri yukarda hocam. Onları paylaştığım excelde yol uzantisida var oradaki uzantidaki 4 dosya var sap çektiği ondiayalarin isimlerinde var kodların içinde onları calistirdigim makro sayfasında açmasını istiyorum yan sayfa olarak
 
Olumlu oy 0 Negatif oyla
ekli dosyanızda hiç bir şey yazılı değil. yol dediğiniz c:\..... şeklinde bir yazı olması gerek o da yok tekrar soruyorum. 4 tane çalışma kitabı oluşturulmasını mı yoksa aynı workbook içinde yan yana 4 sayfamı
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sesion diye başlayan kodlarda var hocam c:/... Yol uzantısı ek olarak birzdan yoluda paylasiyir olacağım.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Yol : C:\Users\maydin\Desktop\GENEL-GIDERLER HAZIRLAMA\harun bey\

yan yana açılanak dosya isimleri:

fns1-9-2021.xls
fns1-9-2022.xls
fns-9-9-2021.xls
fns-9-9-2022.xls
 
Olumlu oy 0 Negatif oyla
doğru mu anladım
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
excele bir bak sayfalarda söylediğin isimlerde sayfa var mı yok mu resimdeki gibi
1665311024839.png
 
Olumlu oy 0 Negatif oyla
yol verdiğine göre workbook açılacak sanırım
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
1665311114294.pngyok hocam ama sadece sayfa açmasını istemiyorum ben bu isimdeki dosyaları sayfa olarak açmasını istemekteyim. sap den alıım 4 dosya var.xls formatında bu dosyaları çalışma excelimde sayfa olarak açmasını istemekteyim.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Burda bir formatım var ama burda yer seçiyorum ben seçmeden direk o dosyaları çekmesini istemekteyim tek bir makro ile tüm işlemleri halletmek istiyorum.
 
Olumlu oy 0 Negatif oyla
şimdi anlaşalım madde madde gidelim.

1-SAP tan 4 adet isimlerini yazdığın xls uzantılı çalışma kitabın var
2- Bu çalışma kitapları belirttiğin YOL da bulunmakta
3- Bu Kitapların ilk sayfalarındaki bilgileri şu anda kullandığın çalışma kitabı içine aktarmak istiyorsun ve sayfa isimleri de aynı olsun diyorsun
Doğru mudur?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
itapların ilk sayfalarınd
Genişletmek için tıkla...
3- Bu Kitapların ilk sayfalarındaki bilgileri şu anda kullandığın çalışma kitabı içine aktarmak istiyorsun ve sayfa isimleri de aynı olsun diyorsun
Doğru mudur?

Bu dosyalarda sadece tek sayfa vardır.

dosya içeriği budur zip olarak paylaşmaktayım. Sap kodlarını suanda if koydum çalışmamaktadır.

4cu olarak tek makro çalıştırarak tum işlemleri yapmasını şstiyorum.

1665311608429.png
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
kodu deneyin
Sub Klasor()
Dim yolana As String
Dim arr()
arr = Array("fns1-9-2021.xls", "fns1-9-2022.xls", "fns-9-9-2021.xls", "fns-9-9-2022.xls")
For i = 0 To UBound(arr)
' Dim diaFolder As FileDialog

' Open the file dialog
'Basla:
On Error GoTo Hata

' Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
' 'diaFolder.AllowMultiSelect = False
' diaFolder.Show
yolana = "C:\Users\maydin\Desktop\GENEL-GIDERLER HAZIRLAMA\harun bey\"
'yol = diaFolder.SelectedItems(1)
yol = yolana & arr(i)
kitap = Dir(yol & Application.PathSeparator & ".", vbDirectory)

Do While kitap <> ""
If kitap = ThisWorkbook.Name Then GoTo ResumeSub:
i = i + 1
Range("AH" & i) = kitap

ResumeSub:
kitap = Dir

Loop
Next i
' Set diaFolder = Nothing

Call Aktar

Columns("AH").Clear

Exit Sub

Hata:

MsgBox "Klasör seçilmedi!"
' GoTo Basla

End Sub
 
Olumlu oy 0 Negatif oyla
sizin gönderdiğiniz kod ile denemenizi yapın olmaz ise yenisini yazalım
 
Olumlu oy 0 Negatif oyla
sizin çalışıyor dediğiniz örnek hata olmamalı istediğiniz yerden call Klasor yazarak çağırabilirsiniz.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Konu Sahibi
hocam yol belli olduğu iiçin seçim yapmak istemiyorum. direk yol içindeki dosyaları çekmek istiyorum gönderdiğiniz doysadada bu koda çalışmamaktadır.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst