Hücrelerdeki isimlere göre sayfa oluşturma
Tarih
09/04/2012 16:10
Konu Sahibi
drummers
Yorumlar
9
Okunma
2650
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....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çö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
28/10/2016,11:41
Çö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....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çö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
28/10/2016,11:41
Çö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....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çö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
28/10/2016,11:41
Çö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
  Ödeme durumuna göre Hücre renklendirme (Koşullu Biçimlendirme) omerozel25 8 488 20/08/2016, 18:11 atoz112
  Aylara göre saatlik izin toplama hegu 8 400 13/08/2016, 20:08 hegu
  text dosyası oluşturma trust59 6 778 18/06/2016, 15:11 atoz112
  Belli Kritere Göre Tabloyu Doldurmak SCavusoglu 3 1.337 05/06/2016, 15:58 atoz112
  Exelde bugünün tarihine göre sütun gizleme suatkozberi 3 607 16/05/2016, 16:52 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya