[Çözüldü]  hücrede yazılı Excel adından veri cekmek

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

hücrede yazılı Excel adından veri cekmek

İleti#1)  yasartoms » 01 Eyl 2018 22:39

Merhaba

bilgisayarımın masa üstünde boş icmal adında bir excelim var. Boş icmal excellinin Z giriş sayfasının b sutununa ,
masa üstündeki ağustos klasörürde olan 01.02.18.xls (gibi ) dosya adındaki excellden z giriş sayfasındaki c sütünündaki bilgileri almak istiyorum.

ancak bunu verinin alınacağı Excel adını boş icmal z giriş sayfasındaki h1 sütünündan Excel adını alsın istiyorum

bunu nasıl yapabilirim farklı makroları denedim ancak açıkcası beceremedim.

bana makro kodu konusunda yardımlarınızı bekliyorum

istenirse Excel dosymı ekleyebilirim

şimdiden teşekkürler
Kullanıcı avatarı
yasartoms
Yeni Başlamış
 
Kayıt: 21 Tem 2018 23:27
Meslek: maliyet hesaplama
Yaş: 30
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: hücrede yazılı Excel adından veri cekmek

İleti#2)  Ali ÖZ » 04 Eyl 2018 10:57

Merhaba Bu kodu Kullanabilirsiniz.

Kod: Tümünü seç
Sub kapalidosyadanverial()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
  if ThisWorkbook.Sheets("z giriş").Range("h1").Value = "" then
     msgbox "Dosya Adı Boş Olmamalıdır."
     exit sub
  end if
  ThisWorkbook.Sheets("z giriş").Range("b2:b65536").ClearContents
  dosyayolu = "C:\Users\ali.os\Desktop\ağustos\"
  dosya = ThisWorkbook.Sheets("z giriş").Range("h1").Value & ".xlsx"
  Set dosyaac = Workbooks.Open(dosyayolu & dosya)
  dosyaac.Sheets("z giriş").Range("c2:c" & dosyaac.Sheets("z giriş").Range("c65536").End(3).Row).Copy
  ThisWorkbook.Sheets("z giriş").Range("b2").PasteSpecial Paste:=xlPasteValues
  dosyaac.Close , True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: hücrede yazılı Excel adından veri cekmek

İleti#3)  yasartoms » 04 Eyl 2018 13:06

Merhaba ali bey

Makroyu denedim fakat adımla dahi yapamadım 400 hatası veriyor

dosyayı ekledim buradan kontrol edebilirmisiniz nerede yanlış yapıyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yasartoms
Yeni Başlamış
 
Kayıt: 21 Tem 2018 23:27
Meslek: maliyet hesaplama
Yaş: 30
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: hücrede yazılı Excel adından veri cekmek

İleti#4)  metehan8001 » 04 Eyl 2018 13:52

Ali Beyden cevap gelene kadar, bu da benden alternatif olsun.

Kod: Tümünü seç
Public Function FileFolderExists(strfullpath As String) As Boolean
'www.ExcelDepo.Com metehan8001@gmail.com
On Error GoTo hata:
If Not Dir(strfullpath, vbDirectory) = vbNullString Then FileFolderExists = True
hata:
On Error GoTo 0
End Function

Sub ExcelDepo()
Dim kayityeri As String
'www.ExcelDepo.Com metehan8001@gmail.com
kayityeri = ThisWorkbook.Path & "\ağustos\"
dosyaadi = Range("m1").Value
dosya = kayityeri & dosyaadi

Rem klasor sorgulama
If FileFolderExists(kayityeri) Then

Rem DOSYA SORGULAMA
kontrol = Dir(dosya)
If kontrol = "" Then
MsgBox dosya & vbCr & vbCr & dosyaadi & vbNewLine & "Bu isimden bir DOSYA bulunmamaktadır", vbCritical + vbMsgBoxRtlReading, "Www.ExcelDepo.Com"
Exit Sub
End If

Dim s As String, rs As Object
Set con = CreateObject("adodb.connection")
   con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    dosya & ";extended properties=""Excel 12.0;hdr=no"""
s = "Select  f1 from [Z GİRİŞ$C2:C65536]"
Set rs = CreateObject("adodb.recordset")
rs.Open s, con, 1, 1
If rs.RecordCount > 0 Then
Range("b2").CopyFromRecordset rs
End If
rs.Close:  con.Close
Set con = Nothing: Set rs = Nothing
MsgBox "İşlem tamamlandı", vbInformation + vbMsgBoxRtlReading, "Www.ExcelDepo.Com"
Else
MsgBox kayityeri & vbNewLine & " Klasör Bulunamadı", vbCritical + vbMsgBoxRtlReading, "Www.ExcelDepo.Com"
End If
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
metehan8001
Siteye Alışmış
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 10:30
İleti: 337
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

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

Cevap: hücrede yazılı Excel adından veri cekmek

İleti#5)  Ali ÖZ » 04 Eyl 2018 14:16

Merhaba,
Sorun 2 noktadan kaynaklanıyor.
1- Dosya ismi ile hücredeki değer aynı değil. dosya adı = 3.09.2018 hücre değeri = 03.09.2018
2- Dosya uzantısı xlsm formatında

Bu şekilde değiştirin çalışacaktır.


Kod: Tümünü seç
Sub kapalidosyadanverial()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
  If ThisWorkbook.Sheets("Z GİRİŞ").Range("h1").Value = "" Then
     MsgBox "Dosya Adı Boş Olmamalıdır."
     Exit Sub
  End If
  ThisWorkbook.Sheets("Z GİRİŞ").Range("b2:b65536").ClearContents
  dosyayolu = ThisWorkbook.Path & "\ağustos\"
  dosya = ThisWorkbook.Sheets("Z GİRİŞ").Range("h1").Value & ".xlsm"
  Set dosyaac = Workbooks.Open(dosyayolu & dosya)
  dosyaac.Sheets("Z GİRİŞ").Range("c2:c" & dosyaac.Sheets("Z GİRİŞ").Range("c65536").End(3).Row).Copy
  ThisWorkbook.Sheets("Z GİRİŞ").Range("b2").PasteSpecial Paste:=xlPasteValues
  dosyaac.Close , True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: hücrede yazılı Excel adından veri cekmek

İleti#6)  yasartoms » 05 Eyl 2018 11:46

Arkadaşlar

Emeğinize sağlık çok teşekkürler destek ve yardımlarınız için sorunum çözüme ulaştı
Kullanıcı avatarı
yasartoms
Yeni Başlamış
 
Kayıt: 21 Tem 2018 23:27
Meslek: maliyet hesaplama
Yaş: 30
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: hücrede yazılı Excel adından veri cekmek

İleti#7)  Ali ÖZ » 14 Eyl 2018 12:29

Rica ederiz iyi çalışmaar.
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 2 misafir

Bumerang - Yazarkafe