#2
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| Bu Konudaki Yorumlar |
|
Hücrelerdeki isimlere göre sayfa oluşturma - Yazar: drummers - 09/04/2012, 16:10
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - Yazar: DUAYEN - 09/04/2012, 18:15
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - Yazar: drummers - 09/04/2012, 18:20
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - Yazar: DUAYEN - 09/04/2012, 18:22
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - Yazar: drummers - 09/04/2012, 18:24
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - Yazar: DUAYEN - 09/04/2012, 19:16
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - Yazar: drummers - 09/04/2012, 19:24
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - Yazar: DUAYEN - 09/04/2012, 19:34
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - Yazar: DUAYEN - 10/04/2012, 15:36
Cvp: Hücrelerdeki isimlere göre sayfa oluşturma - Yazar: drummers - 10/04/2012, 16:53
|
