|
|
|  |
|
||||||
| DUYURU SİSTEMİ / REKLAM PANOSU | ||
|
Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
 |
 |
|
|
Paylaş | Konu Araçları | Görünüm Modları |
20-02-2015, 14:26
|
#11 | |
|
Moderatör
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,682
Excel Vers. ve Dili:
Excel 2010 Türkçe |
Alıntı:
Ana Sayfa A1:A10 arasında çift tıkladığınız hücredeki sayfa adını açar. Açılan sayfada herhangi bir hücreye çift tıklarsanız Ana Sayfaya döner. Private Sub Workbook_SheetBeforeDoubleClick(ByVal sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Dim sayfa_adi As String
sayfa_adi = Target.Value
On Error GoTo atla
If ActiveSheet.Name <> "Ana Sayfa" Then
Sheets("Ana Sayfa").Select
Else
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Sheets(sayfa_adi).Visible = True
Sheets(sayfa_adi).Select
End If
Exit Sub
atla:
Target.Offset(1, 0).Select
MsgBox "Sayfayı Bulamadım."
End Sub
|
|
|
|
|
20-02-2015, 14:38
|
#12 |
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,091
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe |
Ömer;
#5 numaralı mesajda kodu göremedim hocam ? |
|
|
|
|
20-02-2015, 14:41
|
#13 |
|
Moderatör
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,682
Excel Vers. ve Dili:
Excel 2010 Türkçe |
#6 numaralı mesaja bakınız.
|
|
|
|
|
20-02-2015, 14:47
|
#14 |
|
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,091
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe |
Ömer;
hocam yine aynı hatayı veriyor.. type mismatch. Sizin verdiğiniz koddan hariç başka bir kod içermiyor tablo.. * sayfa adını aldıramıyoruz gibi geliyor bana hocam. http://dosya.co/9xc8nt4djcv6/Kitap1.rar.html Bu mesaj en son " 20-02-2015 " tarihinde saat 15:00 itibariyle k0081 tarafından düzenlenmiştir.... Neden: link+öneri |
|
|
|
|
20-02-2015, 15:22
|
#15 |
|
Moderatör
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,682
Excel Vers. ve Dili:
Excel 2010 Türkçe |
Birleştirilmiş hücre kullandığınız için hata aldınız.
Bu şekilde deneyin. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sayfa_adi As String
If Intersect(Target, Range("B3:B100")) Is Nothing Then Exit Sub
sayfa_adi = Range("" & Split(Target.Address, ":")(0) & "")
If Range("" & Split(Target.Address, ":")(0) & "") = "" Then Exit Sub
On Error GoTo atla
Sheets(sayfa_adi).Visible = True
Sheets(sayfa_adi).Select
Exit Sub
atla:
Target.Offset(1, 0).Select
MsgBox "Sayfayı Bulamadım."
End Sub
|
|
|
|
|
20-02-2015, 15:58
|
#16 |
|
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,091
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe |
Ömer;
Hocam çok teşekkür ediyorum tamamdır.. elinize-yüreğinize sağlık.. |
|
|
|
|
21-02-2015, 03:38
|
#17 |
|
Altın Üye
Giriş: 17/02/2014
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
excel 2013 türkçe |
Ömer hocam öncelikle ilgilendiğinizden dolayı teşekkürlerimi sunarım sizin cevabınızı görmeden önce sorduğum soruyla ilgili biraz uğraştım bir şeyler yapmaya çalıştım kodlar farklı çalışmalardan alıntı olduğu için karışık yerleştirmiş olsamda işime yaradı yani biraz acemi işi oldu gibi tekrardan teşekkürlerimi sunarım iyi çalışmalar dilerim
|
|
|
|
|
19-03-2017, 11:35
|
#18 |
|
Altın Üye
Giriş: 12/11/2011
Şehir: uşak
Mesaj: 53
Excel Vers. ve Dili:
excell 2010 türkçe |
Arkadaşlar aşağıdaki kod ile anasayfadan şablonu kopyalıyor açılan sayfaya isim verebiliroyuz.
isim verdiğimiz sayfaya aynı anda anasayfaya b1 b100 arasına otomatik isminiköprü nasıl oluşturabiliriz. Sub YENİ_HESAP_AÇ() ' ' YENİ_HESAP_AÇ Makro ' Dim sayfa_adi As Variant sayfa_adi = Application.InputBox("Müşteri Hesap Adını Giriniz") If sayfa_adi = False Then MsgBox "İşleminiz iptal edilmiştir.", vbInformation Exit Sub: End If If sayfa_adi = "" Then MsgBox "Lütfen Müşteri Hesap Adını Giriniz. İşleminiz iptal edilmiştir.", vbInformation Exit Sub: End If Sheets("SABLON").Copy After:=Sheets(Sheets.Count) On Error Resume Next ActiveSheet.Name = sayfa_adi If Err = 1004 Then MsgBox "Aynı isimde sayfa bulunmaktadır. Eklenen son sayfa silinecektir.", vbCritical, "Dikkat !" Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End If End Sub |
|
|
|
|
20-03-2017, 13:59
|
#19 |
|
Moderatör
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,682
Excel Vers. ve Dili:
Excel 2010 Türkçe |
Merhaba,
Sheets("SABLON").Copy After:=Sheets(Sheets.Count) satırından sonra; Dim son As Long
son = Sheets("anasayfa").Cells(Rows.Count, "B").End(xlUp).Row + 1
Sheets("anasayfa").Cells(son, "B") = sayfa_adi
ActiveSheet.Delete satırından sonra; Sheets("anasayfa").Cells(son, "B").ClearContents
. |
|
|
|
Düzenli Mod
