+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Hücrelerdeki isimlere göre sayfa oluşturma (/konu-hucrelerdeki-isimlere-gore-sayfa-olusturma.html)
Sayfalar:
1
2
Hücrelerdeki isimlere göre sayfa oluşturma - drummers - 09/04/2012
Kısa bir sorum olacaktı
Sayfa1 deki A1:A50 arasındaki hücrelerde yazılı olan isimleri nasıl bir makro ile sayfa yapabilirim.
Örnek:
A1= can olsun makro çalıştığında can isimli bir sayfa oluştursun
A2= ali olsun makro çalıştığında ali isimli bir sayfa oluştursun
Soru kısa olduğundan örnek dosya ekleme geriği duymadım...
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - DUAYEN - 09/04/2012
Boş bir modüle kopyalayın kodu.
Kod:
Option Explicit
Sub sayfa_Aç_66()
On Error GoTo son
Dim dyn, Duayen, galatasaray As String
Set duayen = Sheets("Sayfa1")
If ActiveSheet.Name = duayen.Range("A3").Text Then
Sheets(duayen.Range("A3").Text).Select
Else
galatasaray = duayen.Range("A3").Value
If galatasaray <> "" Then Sheets(galatasaray).Select
End If
Exit Sub
son:
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = duayen.Range("A3")
End SubDUAYEN
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - drummers - 09/04/2012
(09/04/2012, 18:15)DUAYEN yazdı: Boş bir modüle kopyalayın kodu.
Denemedim deneyip bilgi verirsiniz.Kod:Option Explicit
Sub sayfa_Aç_66()
On Error GoTo son
Dim dyn, Duayen, galatasaray As String
Set duayen = Sheets("Sayfa1")
If ActiveSheet.Name = duayen.Range("A3").Text Then
Sheets(duayen.Range("A3").Text).Select
Else
galatasaray = duayen.Range("A3").Value
If galatasaray <> "" Then Sheets(galatasaray).Select
End If
Exit Sub
son:
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = duayen.Range("A3")
End Sub
DUAYEN
Sadece A3 hücresindeki veriyi sayfa yapıyor...
A1:A50 olabilirmi
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - DUAYEN - 09/04/2012
Denemedim diye belirtmiştim.Şuan nöbetciyim fazla ilgilenemiyorum kusura bakmayın .
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - drummers - 09/04/2012
(09/04/2012, 18:22)DUAYEN yazdı: Denemedim diye belirtmiştim.Şuan nöbetciyim fazla ilgilenemiyorum kusura bakmayın .
Ne demek
Kolay gele
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - DUAYEN - 09/04/2012
[/quote]
Ne demek
Kolay gele[/quote]
Ne demek şimdi bu ?