Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 20-02-2015, 14:26   #11
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,710
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Alıntı:
polis-53 tarafından gönderildi Mesajı Görüntüle
merhabalar hücreye tıklayınca sayfaya gittiğimde ana sayfaya geri dönüş köprüsünü de oluştursun.
ThisWorkbook (BuÇalışmaKitabı) sayfasına kopyalayın.

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.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-02-2015, 14:38   #12
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,108
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan

Ömer;
#5 numaralı mesajda kodu göremedim hocam ?
k0081 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-02-2015, 14:41   #13
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,710
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

#6 numaralı mesaja bakınız.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-02-2015, 14:47   #14
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,108
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan

Ö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
k0081 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-02-2015, 15:22   #15
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,710
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Birleştirilmiş hücre kullandığınız için hata aldınız.

Bu şekilde deneyin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-02-2015, 15:58   #16
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,108
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan

Ömer;

Hocam çok teşekkür ediyorum tamamdır.. elinize-yüreğinize sağlık..
k0081 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-02-2015, 03:38   #17
fırat_raman
Altın Üye
 
Giriş: 17/02/2014
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
excel 2013 türkçe
Varsayılan

Ö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
Eklenmiş Dosyalar
Dosya Türü: xlsm Şifreli köprü oluşturma.xlsm (201.8 KB, 11 Görüntülenme)
fırat_raman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 11:35   #18
simyaci64
Altın Üye
 
Giriş: 12/11/2011
Şehir: uşak
Mesaj: 53
Excel Vers. ve Dili:
excell 2010 türkçe
Varsayılan

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
simyaci64 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 13:59   #19
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,710
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Sheets("SABLON").Copy After:=Sheets(Sheets.Count)

satırından sonra;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sheets("anasayfa").Cells(son, "B").ClearContents
satırlarını ekleyin.

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 17:41


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Excel Eğitimi - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Kamera- Çorlu Fiber- Çorlu Araç Takip- Çorlu Su Arıtma-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden