Soru Hücrede yazan kelimeyle o excelden veri çekme

[Korhan Ayhan]

Sanırım çalışmaz..

 

[comefast]

Sanırım çalışmaz..

Sabah 8’den beri uğraşıyorum. Beynim yanmak üzere

 

[comefast]

Sanırım çalışmaz..

DefObj C, E-F, R
Sub vericek()

Range("A:D").ClearContents
Set Rky = CreateObject("adodb.connection")
Set FSO = CreateObject("scripting.filesystemobject")
Set cat = CreateObject("adox.catalog")
For Each evn In FSO.getfolder(ThisWorkbook.Path).Files
If Not evn.Name Like "*" & ThisWorkbook.Name Then
Rky.Open "Provider=Microsoft.ace.oledb.12.0;Data Source=" & _
evn & ";Extended Properties=""Excel 12.0;hdr=no"""
cat.activeconnection = Rky

Set RS = Rky.Execute("Select '" & FSO.GetBaseName(evn) & "',F1,F2,F3,F4,F5 From [" & İCMAL$ & "$A1:E500]")

Range("A65536").End(3)(2, 1).CopyFromRecordset RS

RS.Close: Rky.Close
End If
Next evn
Set RS = Nothing: Set Rky = Nothing: Sorgu = ""
Set FSO = Nothing: Set evn = Nothing
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
MsgBox "Çift tıklama yapıldı"
End If
End Sub

Bu işe yarar mı hocam?

 

[Korhan Ayhan]

Bunu deneyiniz.

Sub Test()
    Dim Rng As Range

    For Each Rng In Range("B2:B1048576").SpecialCells(xlCellTypeConstants)
        Rng = CDate(Rng.Value)
    Next
End Sub

 

[comefast]

Bunu deneyiniz.

Sub Test()
    Dim Rng As Range

    For Each Rng In Range("B2:B1048576").SpecialCells(xlCellTypeConstants)
        Rng = CDate(Rng.Value)
    Next
End Sub

bu hatayı verdi hocam

hm7pxx0.PNG

ff

www.hizliresim.com

 

[Korhan Ayhan]

Uyguladığınız alanda uyumsuz bir veri var sanırım. Örnek dosya paylaşırsanız duruma bakabilirim.

 

[comefast]

Uyguladığınız alanda uyumsuz bir veri var sanırım. Örnek dosya paylaşırsanız duruma bakabilirim.

3.xlsm dosyasını indir - download

3.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

hocam dosya linkte. MAKRO isimli sayfaya makro yazdım aynı klasördeki excelerden veriyi getiriyor. B sütununda bazıları tarih bazıları metin. Tarih olanlar hücre içinde gg-aa-yyyy şekilde sola yapışık. Bunlara çift tıkladığımda hücre içinde sağa yapışık gg.aa.yyyyy şekile tarihe dönüyor. onun için b sütununa çift tık yaptırmak istiyorum.

 

[comefast]

Boş bir hücreye 1 yazın. Sonra bu hücreyi kopyalayın. Tarih olan alanı seçip sağ tıklayın. Özel Yapıştır-Değerleri-Çarp işlemlerini yaparak deneyiniz.

hocam bu söylediğiniz oldu. tek sıkıntı bu işlemin makrosu nedir?

 

[Korhan Ayhan]

Google'da MAKRO KAYDET YÖNTEMİ diye arama yapın. Karşınıza konuyla ilgili videolar gelecektir. İnceleyip kendiniz ilgili kodları oluşturabilirsiniz.

 

[comefast]

Google'da MAKRO KAYDET YÖNTEMİ diye arama yapın. Karşınıza konuyla ilgili videolar gelecektir. İnceleyip kendiniz ilgili kodları oluşturabilirsiniz.

Hocam aynı klasördeki excelden verileri çekmek için yazdığım kod vardı, onu office 365'te kullanıyordum şu an office 2013 pro plusta makro çalışmıyor. hata resmi;

r89w9f6.PNG

ff

www.hizliresim.com

kod;

DefObj C, E-F, R
Sub vericek()

Range("A:D").ClearContents
Set Rky = CreateObject("adodb.connection")
Set FSO = CreateObject("scripting.filesystemobject")
Set cat = CreateObject("adox.catalog")
For Each evn In FSO.getfolder(ThisWorkbook.Path).Files
If Not evn.Name Like "*" & ThisWorkbook.Name Then
Rky.Open "Provider=Microsoft.ace.oledb.12.0;Data Source=" & _
evn & ";Extended Properties=""Excel 12.0;hdr=no"""
cat.activeconnection = Rky

Set RS = Rky.Execute("Select '" & FSO.GetBaseName(evn) & "',F1,F2,F3,F4,F5 From [" & İCMAL$ & "$A1:E500]")

Range("A65536").End(3)(2, 1).CopyFromRecordset RS

RS.Close: Rky.Close
End If
Next evn
Set RS = Nothing: Set Rky = Nothing: Sorgu = ""
Set FSO = Nothing: Set evn = Nothing
End Sub

 

[Korhan Ayhan]

Sanırım ilgili bilgisayarda eksik birşeyler var.

Linkte benzer bir hatadan bahsedilmiş. Belki sizin içinde çözüm olabilir.

Kapalı Dosyaya Veri Kopyalama

Kapalı ve örnekteki şekilde şifre girişi olan bir dosyaya, bu dosyayı hiç açmadan sabit bir hücreden sabit bir hücreye (Örneğin 1 kitabın A3 hücresinden diğerinin A1 hücresine) veri aktarmak mümkün mü? Not: Orjinal dosya boyutu oldukça büyük olduğu için gizli aç-kapat şeklinde olmaması ve...

www.excel.web.tr