excel belgeleri salt okunur açılıyor Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

Sub b()
Open "c:/uludağ/no" For Random As #4
Dim s As Integer
Dim h As String

Get 4, 1, s

u = 2
For i = 2 To s
Get 4, i, h
Dim kitap As Excel.Application
Set kitap = CreateObject("Excel.Application")
kitap.Workbooks.Open ("c:uludağ" & h & ".xls")
kitap.Visible = False
Sheets(1).Cells(u, 2).Value = kitap.Sheets(9).Cells(2, 2).Value
Sheets(1).Cells(u, 3).Value = kitap.Sheets(9).Cells(2, 3).Value
For w = 1 To 9
If kitap.Sheets(9).Cells(w + 1, 4) = "" Then u = u + w: GoTo 10
Sheets(1).Cells(u + w - 1, 1).Value = kitap.Sheets(9).Cells(2, 1).Value

Sheets(1).Cells(u + w - 1, 4).Value = kitap.Sheets(9).Cells(w + 1, 4)
Sheets(1).Cells(u + w - 1, 5).Value = kitap.Sheets(9).Cells(w + 1, 5)
Sheets(1).Cells(u + w - 1, 6).Value = kitap.Sheets(9).Cells(w + 1, 6)
Sheets(1).Cells(u + w - 1, 7).Value = kitap.Sheets(9).Cells(w + 1, 7)
Sheets(1).Cells(u + w - 1, 8).Value = kitap.Sheets(9).Cells(w + 1, 8)
Sheets(1).Cells(u + w - 1, 9).Value = kitap.Sheets(9).Cells(w + 1, 9)
Sheets(1).Cells(u + w - 1, 10).Value = kitap.Sheets(9).Cells(w + 1, 10)
Next w

10 Next i
Close 4
kitap.Quit
Set kitap = Nothing

End Sub

Benzer Sonuçlar
No	Makro Adı
1	excel belgeleri salt okunur açılıyor
2	text dosyası 2 silme
3	belgelerim klasörünü aç alt+f4 ile kapat
4	kitabı kilitleme. salt okunur olarak açma. makroları gizler
5	30 excel dosyası içinde bir kelime aratma
6	dosya yolunda excel dosyalarını bulur ve açar
7	save as (farklı kaydet)
8	kitabı açma-kopyalama-kapama
9	çalışma sayfasının yedeğini alma
10	şifre açma
11	açık dosyanın tekrar
12	userformda hareketli gif
13	belgelerim klasörünü açma
14	ağdaki excel dosyasını açma
15	dosya silmek
16	dosya listeleme
17	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
18	gizli sayfada makro çalışır mı
19	xls dosyaları okuyup içinden veri almak için
20	Cümleleri kısaltma işlemi / Bir cümlede geçen kelimelerin ilk harflerini kullanarak kısa cümle oluşturma

Benzer Sonuçlar

Makro Adı

excel belgeleri salt okunur açılıyor

text dosyası 2 silme

belgelerim klasörünü aç alt+f4 ile kapat

kitabı kilitleme. salt okunur olarak açma. makroları gizler

30 excel dosyası içinde bir kelime aratma

dosya yolunda excel dosyalarını bulur ve açar

save as (farklı kaydet)

kitabı açma-kopyalama-kapama

çalışma sayfasının yedeğini alma

şifre açma