Şimdi Ara

:::Excelde makro ile yeni worksheet açmak?:::...

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
4
Cevap
0
Favori
997
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Öne Çıkar
0 oy
Sayfa: 1
Giriş
Mesaj
  • Elimde bir liste var bu listeyi bir makro oluşturarak her sayfaya bir başlık gelecek şekilde otomatik açmasını istiyorum.(liste sırasına göre). Ayrıca açılan yeni çalışma sayfasının adı başlıkla aynı olmalı. Küçük bir makro ile değerleri açık sayfalara yazdırabiliyorum ama 300'e yakın sayfa oluştuırmam lazım. Bunu otomatik nasıl yaparım?
    ilgilenenlere Teşekkürler!!



    _____________________________
    ANKARA
    Çevre Mühendisi
  • Bu kodu for döngüsü içerisine aldığında kaç tane açmak istersen o kadar sheet açar ...

    Dim i As Integer
    Sub Button1_Click()
    Dim wSht As Worksheet
    Dim shtName As String

    shtName = "NewSheet" & Str(i)
    Sheets(1).Copy before:=Sheets(1)
    Sheets(1).Name = shtName
    Sheets(shtName).Move After:=Sheets(Sheets.Count)
    i = i + 1

    End Sub
    _____________________________
    Aday No : 34400
    Tolga Uslu 1980
    Bilgisayar Yüksek Müh.
    Balıkesir/Manyas - İstanbul

    ANKARA İL JANDARMA KOMUTANLIĞI - KISA DÖNEM
  • teşekkürler pazzo. kendimde birşeyler ekleyerek sorunu çözdüm..ancak yeni worksheet'in adını sayfa1deki n'nci satırdaki değer yapmayı beceremedim...
    Sağol...
    _____________________________
    ANKARA
    Çevre Mühendisi
  • Anladığım kadarıyla bunu mu yapmaya çalıştınız yoksa yanlış mı anladım ?

    ActiveSheet.Range("A1").Value = "deneme"

    ActiveSheet.Range("A1").Value = ThisWorkbook.Name

    _____________________________
    Aday No : 34400
    Tolga Uslu 1980
    Bilgisayar Yüksek Müh.
    Balıkesir/Manyas - İstanbul

    ANKARA İL JANDARMA KOMUTANLIĞI - KISA DÖNEM
  • Yapay Zeka’dan İlgili Konular
    Excel'de Sayaç Yapmak
    3 yıl önce açıldı
    Daha Fazla Göster
    
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.