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

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb :::Excelde makro ile yeni worksheet açmak?:::...

Bu konudaki kullanıcılar: 1 misafir

3
Cevap 992
Tıklama 0
Öne Çıkarma

1. sayfa

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

Cevap Yaz

Pocai

20 yıl

Teğmen

Konu Sahibi

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!!

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

pazzo

20 yıl

Teğmen

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

Bu mesaja 1 cevap geldi.

Pocai

20 yıl

Teğmen

Konu Sahibi

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...

Bu mesaja 1 cevap geldi.

pazzo

20 yıl

Teğmen

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

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb :::Excelde makro ile yeni worksheet açmak?:::...