VBA excel YARDIM

Aşağı Git Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları VBA excel YARDIM

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

2
Cevap 468
Tıklama 0
Öne Çıkarma

1. sayfa

VBA excel YARDIM

Cevap Yaz

baris.baris

6 yıl

Konu Sahibi

Merhaba arkadaşlar;

bir konuda yardıma ihtiyacım var. Yardımcı olursanız sevinirim.

Bir Excel dosyasında Sayfa1'den başalayan belirsiz sayıda sayfa var.
Macrolu olan Excel dosyasına bu sayfaları belirli bir isimle kayıt etmek istiyorum.

excel1
sayfa1
sayfa2
sayfa

macrolu excele
SayfaA
SayfaB
SayfaC

şeklide kopyalamasını istiyorum. Ama kaç sayfa olduğu belirsiz bir excel olunca döngüyü nasıl sağlarım.

şimdiden teşekkürler

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

cdemir

6 yıl

Yarbay

ThisWorkbook.Worksheets.Count ile dosyadaki sayfa sayısını öğrenebilirsiniz.

< Bu ileti mobil sürüm kullanılarak atıldı >

baris.baris

6 yıl

Konu Sahibi

'seçilen excel dosyasını,ismin ve yolunu tanımlar
dosya = Application.GetOpenFilename(fileFilter:="," & _
"*.xlsx;**.xlxm", _'uzantı filtresi
Title:="Lütfen dosya seçimi yapınız")

If dosya = False Then
Exit Sub

Else
dosyaadi = Mid(Dir(dosya), 1, Len(Dir(dosya)) - 4)
yol = Mid(dosya, 1, Len(dosya) - Len(Dir(dosya)))
uzanti = Mid(Dir(dosya), Len(Dir(dosya)) - 2, 4)

Workbooks.Open Filename:=dosya 'seçilen dosyayı açar
For I = 1 To Worksheets.Count 'dosyadaki sayfaları sayar
If Worksheets(I).Name = "Sayfa" & WsNo + 1 Then 'sayfa1 den başlayarak
Sheets("Sayfa" & WsNo + 1).Select 'sayfayı seçer
Range("A1:S400").Select 'istenilen hücreleri seçer
Selection.Copy 'seçilenleri kopyalar
ActiveWindow.WindowState = xlMinimized 'seçerek açtığımız dosyayı aşağı indirir

Dim isim As String 'macronun oladuğu excel dosyasında yeni açılacak sayfanın ismini tanımlar
isim = "YAPIMESKI" & WsNo + 1
WsNo = WsNo + 1
Sheets.Add.Name = isim 'sayfa açıp tanımlanan ismi verir
Sheets(isim).Select
Range("A1:S400").PasteSpecial
Application.CutCopyMode = False
Sheets(isim).Visible = False
Workbooks.Open Filename:=dosya
End If
Next I
ActiveWindow.Close
Application.DisplayAlerts = True
Label101.Caption = yol & dosyaadi & uzanti

Cevap Yaz

1. sayfa

Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları VBA excel YARDIM