dışarı dosya alma ve isimlendirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

dışarı dosya alma ve isimlendirme

İleti#1)  firatgunay » 11 Oca 2019 12:03

Kod: Tümünü seç
Public bekle
Sub FARKLI_KAYDET()
Set hg = Sheets("HÜCRE GİRİŞ"): Set s = Sheets("sunu")
bekle = "DUR"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    For sat = 1 To 100
        s.[V3] = hg.Cells(sat, "Q")
        ActiveSheet.Copy
        belge = ThisWorkbook.Path & "\ihaleler\" & Replace(Replace(hg.Cells(sat, "T").Value, ":", "="), "/", "&") & ".xlsx"
        ActiveWorkbook.SaveAs belge
        ActiveWorkbook.Close
    Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
bekle = ""
End Sub


bu kod excel dosyalarını tek tek ihaleler klasörüne atıyor. bu işimi görmediği için şu anda dışarı çıkan değil de, ihaler adlı ayrı bir excel dosyası içerisinde bir araya getirmek ve her sayfaya da (kod sırayla v3 deki ismi dışarı alıyor) her seferinde değişen v3 hücremin adını vermesi için nasıl yapmam gerekiyor.
Kullanıcı avatarı
firatgunay
 
Adı Soyadı:fırat günay
Kayıt: 28 Oca 2014 08:46
Konum: samsun
Meslek: mühendis
Yaş: 40
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe