[Yardım]  klasör içersin'de bulunan kapalı dosyalara şartlı veri kaydı

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

klasör içersin'de bulunan kapalı dosyalara şartlı veri kaydı

İleti#1)  YABANIM » 17 Tem 2019 15:45

Öncelikle herkese merhaba;

Altta belirteceğim konuya ilişkin örnek bulamadım. Varsa yardımcı olursanız sevinirim.
Özetle Teklifler sayfasında A sütunundaki hücrelerde bulunan cari isimlerini klasör içerisinde ara,
Bulunca aç,bulunmaz ise cari yok diye uyar açmamı sağla,açınca satırdaki o bilgileri ilgili cari sayfasına kopyala kaydet kapat.
Ayrıntılı bilgiyi Zipli Dosyada bulunmakta olup, Desteğiniz için şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
YABANIM
Yeni Başlamış
 
Adı Soyadı:HAKAN YURTDAGÜL
Kayıt: 11 Eyl 2008 11:33
Konum: BURSA
Meslek: SATINALMA
Yaş: 44
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: klasör içersin'de bulunan kapalı dosyalara şartlı ver

İleti#2)  Ali ÖZ » 18 Tem 2019 10:15

Merhaba,
A sütunundaki cari adına göre dosyayı bulduğunda açacağı dosyanın içinde arama kriteri olacak mı ?
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: klasör içersin'de bulunan kapalı dosyalara şartlı ver

İleti#3)  şahin » 19 Tem 2019 12:05

Ekte

satınalma.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 692
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: klasör içersin'de bulunan kapalı dosyalara şartlı ver

İleti#4)  YABANIM » 21 Tem 2019 20:25

Merhaba;
Öncelikle geç döndüğüm içi kusura bakmayın. Arama kriteri olacak word belgesinin içersine yazmıştım sanırım gözünüzden kaçtı bu arada verilen örnek için teşekkür ederim deneyip hemen dönüş yapacağım. Desteğiniz için teşekkürler.
Kullanıcı avatarı
YABANIM
Yeni Başlamış
 
Adı Soyadı:HAKAN YURTDAGÜL
Kayıt: 11 Eyl 2008 11:33
Konum: BURSA
Meslek: SATINALMA
Yaş: 44
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: klasör içersin'de bulunan kapalı dosyalara şartlı ver

İleti#5)  YABANIM » 06 Ağu 2019 08:59

Şahin Bey merhaba;
özel nedenlerden dolayı geç dönüş yapabildim.Öncelikle desteğiniz için teşekkür ederim.Dosyayı inceledim.Farklı tarihlerde aynı üründen fiyat istediğimde ilgili dosyadaki Stok kodunu bulup o satır üstünde değişiklik yapıyor sanırım.Bende ilgili ürünün en son tarihe göre bul getir makrosu var.Eski bilgi dosyada kalmak koşulu ile aynı koddan yeni tarihli teklifi boş satıra nasıl getirebilirim.
Kullanıcı avatarı
YABANIM
Yeni Başlamış
 
Adı Soyadı:HAKAN YURTDAGÜL
Kayıt: 11 Eyl 2008 11:33
Konum: BURSA
Meslek: SATINALMA
Yaş: 44
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: klasör içersin'de bulunan kapalı dosyalara şartlı ver

İleti#6)  YABANIM » 19 Ağu 2019 15:34

Herkese Merhaba;
Konu güncel olup desteğinizi rica ederim.
Kullanıcı avatarı
YABANIM
Yeni Başlamış
 
Adı Soyadı:HAKAN YURTDAGÜL
Kayıt: 11 Eyl 2008 11:33
Konum: BURSA
Meslek: SATINALMA
Yaş: 44
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: klasör içersin'de bulunan kapalı dosyalara şartlı ver

İleti#7)  YABANIM » 28 Ağu 2019 16:23

Merhaba Herkese selamlar;
Konu ile ilgili yardımcı olabilecek değerli kardeşlerime ve abileri'me müteşekkir olurum.
Kullanıcı avatarı
YABANIM
Yeni Başlamış
 
Adı Soyadı:HAKAN YURTDAGÜL
Kayıt: 11 Eyl 2008 11:33
Konum: BURSA
Meslek: SATINALMA
Yaş: 44
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: Cevap: klasör içersin'de bulunan kapalı dosyalara şar

İleti#8)  erseldemirel2 » 28 Ağu 2019 19:22

YABANIM yazdı:Merhaba Herkese selamlar;
Konu ile ilgili yardımcı olabilecek değerli kardeşlerime ve abileri'me müteşekkir olurum.


Merhaba. Bir (x adlı) excel dosyası başka excel dosyaları (a,b,c..) ile çalışacaksa, geçici olarak x in sayfalarına a, b ve c gibi excellerden veri getirilip arama bulma ne isteniyorsa yaptırırılıp sonra getirilen veriler işi bitince silinebilir. Bu yöntemde a , b ve c ggibi excel dosyalarını kritik işlemler yaparken açıp kapstmak yapılmamıs olur. Size faydalı olurmu?
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Cevap: klasör içersin'de bulunan kapalı dosyal

İleti#9)  erseldemirel2 » 28 Ağu 2019 20:16

erseldemirel2 yazdı:
YABANIM yazdı:Merhaba Herkese selamlar;
Konu ile ilgili yardımcı olabilecek değerli kardeşlerime ve abileri'me müteşekkir olurum.


Merhaba. Bir (x adlı) excel dosyası başka excel dosyaları (a,b,c..) ile çalışacaksa, geçici olarak x in sayfalarına a, b ve c gibi excellerden veri getirilip arama bulma ne isteniyorsa yaptırırılıp sonra getirilen veriler işi bitince silinebilir. Bu yöntemde a , b ve c ggibi excel dosyalarını kritik işlemler yaparken açıp kapstmak yapılmamıs olur. Size faydalı olurmu?


Örnek hazırladım. A b c yi kaynak olarak kullanıyor. Teklifler xlsm dosyasını açın. A sütunu üzerinde hesapla butonu var. A B ve C ye ait olan verileri sarı renkteki hücrelere koşula göre aktarmaktadır. Bir inceleyin. Düzeltmeler ve ihtiyaca göre hesaplamalar üzerinde yaparsınız.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: klasör içersin'de bulunan kapalı dosyalara şartlı ver

İleti#10)  YABANIM » 29 Ağu 2019 06:39

Ersel Bey merhaba;
Öncelikle desteğiniz için teşekkür ederim .Amacım teklifler dosyasındaki toplanmış fiyat bilgilerinin aynı klasör içersin'de cari arayıp varsa o cariye dolu olan en son satıra yoksa yeni cari açıp kaydetmesi yönünde . Amacım teklifleri toplayıp o carilere aktarmak olup zira farklı bir makro ile sipariş açıldığında o cariyi bulup o cariden fiyat getiriyorum.
Kullanıcı avatarı
YABANIM
Yeni Başlamış
 
Adı Soyadı:HAKAN YURTDAGÜL
Kayıt: 11 Eyl 2008 11:33
Konum: BURSA
Meslek: SATINALMA
Yaş: 44
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: Cevap: klasör içersin'de bulunan kapalı dosyalara şar

İleti#11)  erseldemirel2 » 29 Ağu 2019 10:07

YABANIM yazdı:Ersel Bey merhaba;
Öncelikle desteğiniz için teşekkür ederim .Amacım teklifler dosyasındaki toplanmış fiyat bilgilerinin aynı klasör içersin'de cari arayıp varsa o cariye dolu olan en son satıra yoksa yeni cari açıp kaydetmesi yönünde . Amacım teklifleri toplayıp o carilere aktarmak olup zira farklı bir makro ile sipariş açıldığında o cariyi bulup o cariden fiyat getiriyorum.



Teklifler.xlsm açın. Oradaki sarı kutucukları firmasına göre aynı klasördeki A,B ve C excellerine dağıtımını yapıyor. Bir kontrol edin. Tekliflerde hesapla butonuna basın ve aynı klasördeki A,b veya c dosyasını açın.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: klasör içersin'de bulunan kapalı dosyalara şartlı ver

İleti#12)  YABANIM » 30 Ağu 2019 06:35

Ersel Bey merhaba;

Öncelikle desteğiniz için teşekkür ederim.Makroların uygulamasını inceledim.Sanırım her cariy'i makro ile tanımlıyoruz Bu sayı 100 ün üstüne çıkabiliyor.Ayrıca A,B,C sayfalarına gelen kayıtları silemiyorum.Şahin Beyin vermiş olduğu örnek dosyada rica etsem bir değişiklik yapabilirmiyiz .Sanırım bu dosyadaki çalışma bana daha uygun gibi .Farklı tarihlerde aynı üründen fiyat istediğimde ilgili dosyadaki Stok kodunu bulup o satır üstünde değişiklik yapıyor sanırım.Bende ilgili ürünün en son tarihe göre bul getir makrosu var.Eski bilgi dosyada kalmak koşulu ile aynı koddan yeni tarihli teklifi boş satıra nasıl getirebilirim.Yani eski tarihli bilgi dosyada kalsın yeni tarihli teklif aldığımda yenisi'de boş olan satıra gelsin.Yardımcı olabilirseniz çok sevinirim.
Kullanıcı avatarı
YABANIM
Yeni Başlamış
 
Adı Soyadı:HAKAN YURTDAGÜL
Kayıt: 11 Eyl 2008 11:33
Konum: BURSA
Meslek: SATINALMA
Yaş: 44
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: klasör içersin'de bulunan kapalı dosyalara şartlı ver

İleti#13)  YABANIM » 30 Ağu 2019 07:14

Merhaba;

Aşağıdaki koda ilgili carinin dosyasını açtıktan sonra boş olan son satıra veriyi getirmesini nasıl sağlarım


Sub DosyaAra()
Sayfa1.Range("AG1:AG5000").ClearContents
For i = 3 To Sayfa1.Range("A50000").End(xlUp).Row
'sayfa1.Cells(i,"A")
'Sayfa1.Range("A50000").End(xlUp).Row
dizin = Dir(ThisWorkbook.Path & "\")
varmi = "h"
Do While dizin <> ""
DoEvents
dosyaisim = Left(dizin, WorksheetFunction.Find(".", dizin) - 1)

If Sayfa1.Cells(i, "A") = dosyaisim Then
Set excel = Workbooks.Open(ThisWorkbook.Path & "\" & dizin)
sat = 2
varmi = "e"
For a = 3 To Sayfa1.Range("A50000").End(xlUp).Row
If Sayfa1.Cells(a, "A") = dosyaisim And Sayfa1.Cells(a, "AG") <> "*" Then

excel.Sheets("CB").Range("A" & sat) = Sayfa1.Cells(a, "F")
excel.Sheets("CB").Range("B" & sat) = Sayfa1.Cells(a, "J")
excel.Sheets("CB").Range("c" & sat) = Sayfa1.Cells(a, "R")
excel.Sheets("CB").Range("D" & sat) = Sayfa1.Cells(a, "A")
excel.Sheets("CB").Range("E" & sat) = Sayfa1.Cells(a, "S")
excel.Sheets("CB").Range("F" & sat) = Sayfa1.Cells(a, "Q")
excel.Sheets("CB").Range("G" & sat) = Sayfa1.Cells(a, "U")

excel.Sheets("CB").Range("H" & sat) = Sayfa1.Cells(a, "V")
excel.Sheets("CB").Range("I" & sat) = Sayfa1.Cells(a, "W")
excel.Sheets("CB").Range("J" & sat) = Sayfa1.Cells(a, "X")
excel.Sheets("CB").Range("K" & sat) = Sayfa1.Cells(a, "Y")
excel.Sheets("CB").Range("L" & sat) = Sayfa1.Cells(a, "Z")

Sayfa1.Cells(a, "AG") = "*"

sat = sat + 1
End If
Next a
excel.Save
excel.Close
Set excel = Nothing

End If

dizin = Dir()
Loop

sat = 2
If varmi = "h" Then

Set yeni = Workbooks.Add
'yeni.Sheets.Add
yeni.Sheets(1).Name = "CB"

yeni.Sheets("CB").Range("A1") = "MalzemeSistemKodu"
yeni.Sheets("CB").Range("b1") = "MalzemeAciklamasi"
yeni.Sheets("CB").Range("c1") = "Sınıf"
yeni.Sheets("CB").Range("d1") = "Musteri"
yeni.Sheets("CB").Range("e1") = "FiyatTuru"
yeni.Sheets("CB").Range("f1") = "TeklifTarihi"
yeni.Sheets("CB").Range("g1") = "TeklifFiyati"
yeni.Sheets("CB").Range("h1") = "FiyatBirimi"
yeni.Sheets("CB").Range("I1") = "İskonto Oranı"
yeni.Sheets("CB").Range("j1") = "BİRİM FİYAT"
yeni.Sheets("CB").Range("K1") = "Fiyat birimi"
yeni.Sheets("CB").Range("L1") = "Aciklama"


For a = 2 To Sayfa1.Range("A50000").End(xlUp).Row
If Sayfa1.Cells(i, "A") = Sayfa1.Cells(a, "A") And Sayfa1.Cells(a, "AG") <> "*" Then

yeni.Sheets("CB").Range("A" & sat) = Sayfa1.Cells(a, "F")
yeni.Sheets("CB").Range("B" & sat) = Sayfa1.Cells(a, "J")
yeni.Sheets("CB").Range("c" & sat) = Sayfa1.Cells(a, "R")
yeni.Sheets("CB").Range("D" & sat) = Sayfa1.Cells(a, "A")
yeni.Sheets("CB").Range("E" & sat) = Sayfa1.Cells(a, "S")
yeni.Sheets("CB").Range("F" & sat) = Sayfa1.Cells(a, "Q")
yeni.Sheets("CB").Range("G" & sat) = Sayfa1.Cells(a, "U")

yeni.Sheets("CB").Range("H" & sat) = Sayfa1.Cells(a, "V")
yeni.Sheets("CB").Range("I" & sat) = Sayfa1.Cells(a, "W")
yeni.Sheets("CB").Range("J" & sat) = Sayfa1.Cells(a, "X")
yeni.Sheets("CB").Range("K" & sat) = Sayfa1.Cells(a, "Y")
yeni.Sheets("CB").Range("L" & sat) = Sayfa1.Cells(a, "Z")

Sayfa1.Cells(a, "AG") = "*"
sat = sat + 1
End If
Next a
yeni.SaveAs ThisWorkbook.Path & "\" & Sayfa1.Cells(i, "A")
yeni.Close
Set yeni = Nothing
End If


Next i
End Sub
Sub test()
If varmi = "" Then
MsgBox Sayfa1.Cells(i, "A") & " " & dosyaisim
Set yeni = Workbooks.Add
'yeni.Sheets.Add
yeni.Sheets(1).Name = "CB"

For a = 3 To Sayfa1.Range("A50000").End(xlUp).Row
'For i = 2 To .Range("A" & Rows.Count).End(3).Row 'BENİM EKLEDİĞİM KOŞUL
If Sayfa1.Cells(a, "A") = dosyaisim And Sayfa1.Cells(a, "AG") <> "*" Then

yeni.Sheets("CB").Range("A" & sat) = Sayfa1.Cells(a, "F")
yeni.Sheets("CB").Range("B" & sat) = Sayfa1.Cells(a, "J")
yeni.Sheets("CB").Range("c" & sat) = Sayfa1.Cells(a, "R")
yeni.Sheets("CB").Range("D" & sat) = Sayfa1.Cells(a, "A")
yeni.Sheets("CB").Range("E" & sat) = Sayfa1.Cells(a, "S")
yeni.Sheets("CB").Range("F" & sat) = Sayfa1.Cells(a, "Q")
yeni.Sheets("CB").Range("G" & sat) = Sayfa1.Cells(a, "U")

yeni.Sheets("CB").Range("H" & sat) = Sayfa1.Cells(a, "V")
yeni.Sheets("CB").Range("I" & sat) = Sayfa1.Cells(a, "W")
yeni.Sheets("CB").Range("J" & sat) = Sayfa1.Cells(a, "X")
yeni.Sheets("CB").Range("K" & sat) = Sayfa1.Cells(a, "Y")
yeni.Sheets("CB").Range("L" & sat) = Sayfa1.Cells(a, "Z")

Sayfa1.Cells(a, "AG") = "*"
sat = sat + 1
End If
Next a
yeni.SaveAs ThisWorkbook.Path & "\" & dosyaisim
yeni.Close
Set yeni = Nothing
End If
End Sub
Kullanıcı avatarı
YABANIM
Yeni Başlamış
 
Adı Soyadı:HAKAN YURTDAGÜL
Kayıt: 11 Eyl 2008 11:33
Konum: BURSA
Meslek: SATINALMA
Yaş: 44
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: Cevap: klasör içersin'de bulunan kapalı dosyalara şar

İleti#14)  erseldemirel2 » 30 Ağu 2019 11:22

YABANIM yazdı:Ersel Bey merhaba;

Öncelikle desteğiniz için teşekkür ederim.Makroların uygulamasını inceledim.Sanırım her cariy'i makro ile tanımlıyoruz Bu sayı 100 ün üstüne çıkabiliyor.Ayrıca A,B,C sayfalarına gelen kayıtları silemiyorum.Şahin Beyin vermiş olduğu örnek dosyada rica etsem bir değişiklik yapabilirmiyiz .Sanırım bu dosyadaki çalışma bana daha uygun gibi .Farklı tarihlerde aynı üründen fiyat istediğimde ilgili dosyadaki Stok kodunu bulup o satır üstünde değişiklik yapıyor sanırım.Bende ilgili ürünün en son tarihe göre bul getir makrosu var.Eski bilgi dosyada kalmak koşulu ile aynı koddan yeni tarihli teklifi boş satıra nasıl getirebilirim.Yani eski tarihli bilgi dosyada kalsın yeni tarihli teklif aldığımda yenisi'de boş olan satıra gelsin.Yardımcı olabilirseniz çok sevinirim.



Merhaba birsüre şehir dışındayım ben ama forumda yardımcı olurlar umarım. Döndüğümde bakabılırım kolay gelsin
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: klasör içersin'de bulunan kapalı dosyalara şartlı ver

İleti#15)  YABANIM » 09 Eyl 2019 14:26

Herkese merhaba;
Konu ile ilgili olarak yardımcı olacak üstadıma çok minnettar kalıcam.
Kullanıcı avatarı
YABANIM
Yeni Başlamış
 
Adı Soyadı:HAKAN YURTDAGÜL
Kayıt: 11 Eyl 2008 11:33
Konum: BURSA
Meslek: SATINALMA
Yaş: 44
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe