Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
09/04/2012 16:10
Konu Sahibi
drummers
Yorumlar
9
Okunma
3188
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

drummers

Omur Can
Kullanici Avatari
Destek
O.... C....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çözüldü 
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

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
16/03/2017,17:22
Çözüldü 
Boş bir modüle kopyalayın kodu.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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

drummers

Omur Can
Kullanici Avatari
Destek
O.... C....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çözüldü 
(09/04/2012, 18:15)DUAYEN Adlı Kullanıcıdan Alıntı: Boş bir modüle kopyalayın kodu.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
16/03/2017,17:22
Çözüldü 
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

drummers

Omur Can
Kullanici Avatari
Destek
O.... C....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çözüldü 
(09/04/2012, 18:22)DUAYEN Adlı Kullanıcıdan Alıntı: 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

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
16/03/2017,17:22
Çözüldü 
[/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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Hücredeki Değere Göre Tutarı Eksi Değer Yapmak? derzulya 4 354 29/05/2017, 08:18 derzulya
Çözüldü sütundaki Değere göre veri saydırma hegu 8 503 30/01/2017, 16:25 hegu
Çözüldü Ödeme durumuna göre Hücre renklendirme (Koşullu Biçimlendirme) omerozel25 8 1.149 20/08/2016, 18:11 atoz112
Çözüldü Aylara göre saatlik izin toplama hegu 8 985 13/08/2016, 20:08 hegu
Çözüldü text dosyası oluşturma trust59 6 1.258 18/06/2016, 15:11 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.