• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Açılan Yeni Sekmenin Adını Hücreden Alma

E

emyoluyuz

Katılım
23 Haziran 2008
Mesajlar
30
Excel Vers. ve Dili
2003 Türkçe
Arkadaşlar hazırlamış olduğum tabloda kaydet butonuna bastığımda, yeni sekme açıp sayfanın kopyasını yeni sekmeye yapıştıran bir makro hazırladım. isteğim sadece şu bu açılan yeni sekme, sekme adını kendi içindeki l2 hücresindeki değerden alsın

Sub fatura_kaydet()
'
' fatura_kaydet Makro
' Makro Fatura tarafından 08.05.2011 tarihinde kaydedildi.
'

'
ActiveWindow.SmallScroll Down:=-12
Cells.Select
Selection.Copy
Sheets("Firmalar").Select
Sheets.Add
Cells.Select
Selection.Insert Shift:=xlDown
Sheets("Yeni Fatura").Select
Range("M1:Q2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("C1:K1").Select
End Sub
 
denedim ama hata verdi acaba kodu yanlış yeremi yerleştiriyorum

Sub fatura_kaydet()
'
' fatura_kaydet Makro
' Makro FATURA tarafından 08.05.2011 tarihinde kaydedildi.
'

'
ActiveWindow.SmallScroll Down:=-12
Cells.Select
Selection.Copy
Sheets("Firmalar").Select
Sheets.Add
Dim a As String
i = Sheets.Count
a = Sheets(i).Range("L2").Value
Sheets(i).Name = a
Cells.Select
Selection.Insert Shift:=xlDown
Sheets("Yeni Fatura").Select
Range("M1:Q2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("C1:K1").Select

End Sub
 
ben dosyayı ekleyeyim belki dosya üzerinde görmek istersiniz
 

Ekli dosyalar

  • Cari.rar
    Cari.rar
    397.9 KB · Görüntüleme: 49
Kod: 
Sub YeniSayfaAc()
On Error Resume Next
Set sh = Sheets([A2])
If sh Is Nothing Then
Sheets("Yeni Fatura").Copy _
       after:=Sheets.Count
ActiveSheet.Name = [A2]
End If
End Sub
 
fazla iyi değilim bu konuda bu vermiş olduğunuz kodu benim makronun içinemi yerleştireceğim yoksa yeni bir makromu oluşturacağım
 
söylemiş olduğunuz gibi kendi kodumu sildim ve verdiğiniz kodu yerleştirdim ama kaydet butonuna bastığımda yeni sekmede açıp açılan sekmeye bilgileri kopyaladıktan sonra isim vermiyor. direk taslak olan sayfanın adını değiştiriyor
 
Kodları, "Yeni Fatura" sayfasının kod kısmına ekleyin.
Not:Kodlar alıntıdır.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Dim Sayfa As String

If ActiveSheet.Name <> "Yeni Fatura" Then
    ActiveSheet.Visible = False
    Sheets("Yeni Fatura").Select
    
Else
 
    Sayfa = [l2]
    Sheets(Sayfa).Visible = True
    If Sayfa <> "" Then Sheets(Sayfa).Select

End If

Exit Sub
Son:
If Target.Value = "" Then
Exit Sub
End If
If MsgBox("" & Target.Value & "" & vbLf & "Adına kayıtlı sayfa yok " & vbLf & "Şimdi açılsın mı ?", vbQuestion + vbYesNo, " www.excel.web.tr") = vbYes Then
Sheets("Yeni Fatura").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Select
ActiveSheet.Name = [l2]
End If
Sheets("Yeni Fatura").Select
End Sub
 
şansa bak bu özellik yüklü değil şimdi yüklemek istermisiniz dedi bende evet dedim sonra yüklemedi hata verdi yardım sayfasına beni yönlendirdi, yok olmayacak galiba bu iş, yardım ettiğin için genede çok teşekkür ederim
 
bendemi sorun var anlamadımki :S hata veriyor kod 2007 kullanıyorum
 
sadece istediğim yeni fatura isimli sayfada verileri girdikten sonra, kaydet tuşuna bastığımda o sayfayı kopyalayıp yeni sekme açsın ve oraya yapıştırsın, yapıştırdıktan sonrada o açılan yen sekmenin adı l2 hücresindeki veri olsun
 
Öncelikle firmayı seçtiğimde o firma adına kayıt açılsınmı diye soruyor evet dediğimde yeni sekmede açıyor ama firmanın adresini yeni sekme adı yapıyor benim istediğim L2 hücresindeki fatura numarasını sekme adı yapsın makroyu kontrol ettiğimde L2 yazılmış zaten ama neden adresi alıyor anlamadım. açılan yeni sekmeye örneğin ürünü girdiğimde yeni faturaya beni aktarıyor çok karışık birşey anlayamadım yani :) fatura numarasını değiştirdiğimde yeni kaydet dediğimde eğer aynı firmaya fatura kesiyorsam yeni kayıt atmıyor eski faturanın üzerine yazıyor
 
Kod, sayfa ismini L2 hücresinden alacak şekilde düzenledim. Önceki durumda, yazdığınız sayfa ismini i2 hücresinden alacak zannetmiştim.
 
Merhaba Sayfa Sekme ismi değiştirme konusunda benzer bir sorunum var.Çok acil olduğu için yardımlarınızı rica ediyorum.
Excell dosyamda yaklaşık 500 üzn üzerinde sekme mevcut ve bunlar Sayfa1, Sayfa2,... diye gidiyor.İstediğim şey her sekmedeki "L7" hücresindeki sayısal değerin; içinde yer aldığı sekme nin ismi olarak atanması.
Şimdiden çok teşekkürler....
 
TURANNET' Alıntı:
Merhaba Sayfa Sekme ismi değiştirme konusunda benzer bir sorunum var.Çok acil olduğu için yardımlarınızı rica ediyorum.
Excell dosyamda yaklaşık 500 üzn üzerinde sekme mevcut ve bunlar Sayfa1, Sayfa2,... diye gidiyor.İstediğim şey her sekmedeki "L7" hücresindeki sayısal değerin; içinde yer aldığı sekme nin ismi olarak atanması.
Şimdiden çok teşekkürler....
Genişletmek için tıkla ...

merhaba
Kitabınızın Kod bölümünde Bulunan Thisworkbook bölümüne
Kod: 
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim ts
ts = Range("L7")
ActiveSheet.Name = ts
End Sub
bu kodu kopyalayarak dener misiniz
 
Çok teşekküreler..
Uygulamayı nasıl yapıcam; rica etsem biraz daha açabilirmisin.
Kodları çalışma kitabı kod bölümüne kopyalayıp çalıştır dedim ama olmuyor farklı bişey mi yapmam gerekiyor...
 
TURANNET' Alıntı:
Çok teşekküreler..
Uygulamayı nasıl yapıcam; rica etsem biraz daha açabilirmisin.
Kodları çalışma kitabı kod bölümüne kopyalayıp çalıştır dedim ama olmuyor farklı bişey mi yapmam gerekiyor...
Genişletmek için tıkla ...

merhaba
çalışma kitabınızı açın
Alt+F11 tuş kombinasyonu ile kod bölümüne geçin - sağ tarafta bulunan thisworkbook'a çift tıklayın - sol taraftaki beyaz yere kod'u kopyalayın
Kod: 
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim ts, kaplan
If Range("L7") = "" Then
MsgBox "Sayfa Adı Hücresi Boş Doldurunuz", vbCritical, "Hata"
kaplan = InputBox("Rakam Olarak Giriş Yapını", "Sayfa Adı Girişi")
Range("L7") = kaplan
ts = Range("L7")
ActiveSheet.Name = ts
Else
ts = Range("L7")
ActiveSheet.Name = ts
End If
End Sub
üstteki kod hata veriyor bu daha kullanışlı oldu
alttan sekmeleri seçtiğiniz'de adı oluşturacaktır
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst