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

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.

...Dim wb As Workbook Dim ws As Worksheet Dim sourceRange As Range ' Dosya yolunu ve sayfa adını güncelleyin Set wb = Workbooks.Open("C:\DosyaYolu\DosyaAdi.xlsx") Set ws = wb.Sheets("SayfaAdi") ' A sütunundaki verileri seç ve kopyala Set sourceRange =...

hocam kusura bakmayın araya giriyorum bende aynı işlemler ile uğraşıyorumda burada bende bir yapı değişikliği var dosyayı seçip seçilen dosyadaki verileri başka bir xls deki sayfaya nasıl göndeririz bana o lazım konu sorunuma çok yakın oldugu için araya girmek zorunda kaldım...

..." & fileName currentFilePath = targetFolder & fileName On Error Resume Next Set wb = Workbooks.Open(Filename:=currentFilePath, Password:=filePassword) If Not wb Is Nothing Then On Error GoTo 0...

...filePath = "C:\Users\kullanıcı.adı\Documents\Excel Dosyaları\MakroDosyası.xlsm" ' Kapalı dosyayı aç Set wb = Workbooks.Open(filePath) ' Kapalı dosyadaki makro kodunu al macroCode = wb.VBProject.VBComponents("Module1").CodeModule.Lines(1...

...VBS dosyanız şu şekilde olacaktır: Dim objExcel Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False objExcel.Workbooks.Open "C:\Belgeler\ExcelDosyaları\MakroDosyası.xlsm" objExcel.Run "MakroAdı" objExcel.Quit Set objExcel = Nothing Bu şekilde, VBS dosyasını...