[Yardım]  Makro Yardımı

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

Makro Yardımı

İleti#1)  serhatyaman43 » 07 Ekm 2020 22:08

Arkadaşlar merhaba aşağıdaki gibi bir kodla sayfa ekliyorum. Fakat yeni eklediğim sayfa ismi varsa olan sayfaları eklemesini istemiyorum. Bunun için ne yapmam lazım. Bir kaç deneme yaptım ama başaramadım. Yardımcı olabilirseniz sevinirim.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sayı, i As Integer
sayı = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
i = 2
Do While i <= sayı
Sheets.Add(after:=Sheets(Sheets.Count)).Name = Sheets("Sayfa1").Cells(i, 1).Value
i = i + 1
Loop
End Sub
Kullanıcı avatarı
serhatyaman43
Yeni Başlamış
 
Kayıt: 08 Oca 2019 17:32
Meslek: Öğretmen
Yaş: 41
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karabük

Cevap: Makro Yardımı

İleti#2)  serhatyaman43 » 07 Ekm 2020 22:50

Sorun çözüldü arkadaşlar. Teşekkür ediyorum.
Kullanıcı avatarı
serhatyaman43
Yeni Başlamış
 
Kayıt: 08 Oca 2019 17:32
Meslek: Öğretmen
Yaş: 41
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karabük

Cevap: Makro Yardımı

İleti#3)  serhatyaman43 » 13 Ekm 2020 22:29

Kaç gündür siteye girilmiyordu. Çözümümüzü paylaşalım. Belki işe yarar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim sayı As Integer
Dim ad As String
Dim i As Integer
sayı = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
For i = 1 To sayı
ad = Sheets("Sayfa1").Cells(i, 1).Value

If (Sheet_Exists(ad) = False) And (ad <> "") Then
Worksheets.Add().Name = ad
End If
Next i
End Sub

Function Sheet_Exists(WorkSheet_Name As String) As Boolean
Dim Ws As Worksheet

Sheet_Exists = False

For Each Ws In ThisWorkbook.Worksheets

If Ws.Name = WorkSheet_Name Then
Sheet_Exists = True
End If
Next
End Function
Kullanıcı avatarı
serhatyaman43
Yeni Başlamış
 
Kayıt: 08 Oca 2019 17:32
Meslek: Öğretmen
Yaş: 41
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karabük


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe