![]() |
| ![]() |
|
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ı |
![]() |
#11 | |
Moderatör
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,101
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 |
|
![]() |
![]() |
![]() |
#12 |
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,142
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe |
![]() Ömer;
#5 numaralı mesajda kodu göremedim hocam ? |
![]() |
![]() |
![]() |
#13 |
Moderatör
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,101
Excel Vers. ve Dili:
Excel 2010 Türkçe |
![]() #6 numaralı mesaja bakınız.
|
![]() |
![]() |
![]() |
#14 |
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,142
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 |
![]() |
![]() |
![]() |
#15 |
Moderatör
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,101
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 |
![]() |
![]() |
![]() |
#16 |
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,142
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.. |
![]() |
![]() |
![]() |
#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
|
![]() |
![]() |
![]() |
#18 |
Altın Üye
Giriş: 12/11/2011
Şehir: uşak
Mesaj: 54
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 |
![]() |
![]() |
![]() |
#19 |
Moderatör
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,101
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 . |
![]() |
![]() |