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

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...

...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 =...

...As Worksheet Dim sourceRange As Range Dim sourceRange1 As Range ' Dosya yolunu ve sayfa adını güncelleyin Set wb = Workbooks.Open("C:\Users\ibo\Documents\veri\test.xlsx") Set ws = wb.Sheets("Sayfa1") ' A sütunundaki verileri seç ve kopyala Set sourceRange =...

günaydın teşekkürler şimdi deniyorum.