Sorgu için arama sonuçları: workbooks.open

harika bir şekilde çalıştı yine de sağlama yapacağım bir sorun olursa dönüş yaparım ama tam olarak yapmaya çalıştığım buydu çok teşekkürler ilginiz için

...script dosyası Excel dosyasını arka planda açar: Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Open "C:\Program Files\BenimUygulamam\uygulamam.xlsm" Bu .vbs dosyasına da kısayol oluşturup simgesini değiştirebilirsin. .ico formatında bir simgeye...

2018 klasörüne uyguladığımda tüm aylar için listele dediğimde kod sorunsuz çalışmıştı. Fakat diğer klasörlerde denediğimde tüm ayları listele dediğimde automation error hatası alıyorum. İlginç bir şekilde 2019-2020-2021-2022 klasörülerinde ay seçmeden arama yaptığımda sol altta inceleniyor...

Dostum bu çalışma için çok teşekkürler hatasız verileri çekmeyi başardım. Kodlarda oynama yapmama gerek bile kalmadı hatta. İnisiyatifin için tekrar teşekkürler. Bence oldukça verimli bir çalışma oldu yararlanacak arkadaşlar da vardır. Belki ufak bir ekleme yapmak gerekirse dosya adlarını...

Korhan Bey Merhaba, konuyu yeniden canlandırıyorum ama bu çalışma kitabını User Formda bir framein içinde açtırmamız mümkünmüdür?

klasorYolu = " \\192.168.8.101\Fiyatlandirma\Is_Takip_Listesi_01-11-2012\"

...' Bu dosya açık değilse If dosyaAdi <> ThisWorkbook.Name Then On Error Resume Next Set wb = Workbooks.Open(tamYol, ReadOnly:=True) On Error GoTo 0 If Not wb Is Nothing Then ' İlk görünen çalışma sayfasını al...

Private Sub auto_open() Application.OnTime TimeValue("17:56:00"), "test" End Sub Sub test() Workbooks.Open Filename:="C:\xx.xls" End Sub

kod bu tekrar bakabilir miyiz?

...& ".xlsx" ' Yeni veya mevcut dosyayı aç If Dir(dosyaAdi) <> "" Then Set wbYeni = Workbooks.Open(dosyaAdi) Else Set wbYeni = Workbooks.Add End If Set wsYeni =...

Siz baktınız mı acaba ? Şimdi denedim. Aman yine aynı sadece anahtar kelime büyükse sadece büyük yazan verileri getiriyor. Excel örneğini atmıştım. Excel sürümünün farklı olması değiştirir mi bu durumu bilmiyorum. bendeki 2013 verisiyon office

...& ".xlsx" ' Yeni veya mevcut dosyayı aç If Dir(dosyaAdi) <> "" Then Set wbYeni = Workbooks.Open(dosyaAdi) Else Set wbYeni = Workbooks.Add End If Set wsYeni =...

...& ".xlsx" ' Yeni veya mevcut dosyayı aç If Dir(dosyaAdi) <> "" Then Set wbYeni = Workbooks.Open(dosyaAdi) Else Set wbYeni = Workbooks.Add End If Set wsYeni =...

Kodu bir Sub aralığına eklemelisiniz. Aşağıdaki kodu module ekleyip, butona DosyaAc makrosunu bağlayıp deneyebilir misiniz? Sub DosyaAc() Workbooks.Open Range("FZ5").value end sub

maalesef hata verdi

Merhaba, Aşağıdaki kodu dener misiniz? Workbooks.Open Range("FZ5").value

...As Worksheet Dim sourceRange As Range Dim columnLetter As String ' Dosya yolunu ve sayfa adını güncelleyin Set wb = Workbooks.Open("C:\Users\ibo\Documents\veri\test.xlsx") Set ws = wb.Sheets("Sayfa1") ' ComboBox'tan seçilen değeri al columnLetter =...

hocam kopyalıyor ama getirip SATIŞ a yapıştırmıyor şuan yani az önce fonksiyonları almamıştım aldım şuan hata yok ama kopyaladıklarını yapıştırmıyor sadece

...colIndex As Integer Dim targetColumn As Integer Dim i As Integer ' Dosya yolunu ve sayfa adını güncelleyin Set wb = Workbooks.Open("C:\DosyaYolu\DosyaAdi.xlsx") Set ws = wb.Sheets("SayfaAdi") Set targetWs = ThisWorkbook.Sheets("SATİS") ' ComboBox'tan seçilen...

sizi çok iyi anlıyorum ÜSTADIM bende sizin gibiyim yeni başladım hocalar çok kaliteli çok yardımcı oluyolar süper bir site burası ben şahsen çok beğeniyorum yanlız küçük birşeyi atlıyorsunuz sadece a seçildiğinde a, b seçildiğinde b, demiyorum. aşağıdan bir örnek vericem bi bakın tablodan...