Skip to main content

AccessTr.neT


Hücrelerdeki isimlere göre sayfa oluşturma

Hücrelerdeki isimlere göre sayfa oluşturma

Çözüldü #1
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...
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
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 Sub

Denemedim deneyip bilgi verirsiniz.
DUAYEN
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #3
(09/04/2012, 18:15)DUAYEN yazdı: 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 Sub

Denemedim deneyip bilgi verirsiniz.
DUAYEN

Sadece A3 hücresindeki veriyi sayfa yapıyor...

A1:A50 olabilirmi
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Denemedim diye belirtmiştim.Şuan nöbetciyim fazla ilgilenemiyorum kusura bakmayın .
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #5
(09/04/2012, 18:22)DUAYEN yazdı: Denemedim diye belirtmiştim.Şuan nöbetciyim fazla ilgilenemiyorum kusura bakmayın .

Ne demekImg-grin Kolay gele
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #6
[/quote]

Ne demekImg-grin Kolay gele
[/quote]
Ne demek şimdi bu ?
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task