• DİKKAT

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

YILLIK İZİN TABLOSU FORMÜL EKSİKLİĞİ

I

ibrahimhaspolat

Katılım
28 Kasım 2019
Mesajlar
9
Excel Vers. ve Dili
excell 2016
İYİ GÜNLER YOUTUBE DE VİDEOSUNU İZLEDİĞİM BİR KANALDAN OLUŞTURDUĞUM EXCELL İZİN TABLOSUNDA TAKILDIĞIM BİR YER VAR.

PERSONEL İSMİNİ VE KATILIŞ TARİHİNİ YAZIP KAYIT BUTONUNA BASTIĞIMDA, PERSONEL İÇİN ALT TARAFTA YENİ BİR SAYFA AÇILMASINI İSTİYORUM.... ŞUANKİ AŞAMADA BUTONA BASTIĞIMDA AŞAĞIDA SAYFA AÇILIYOR FAKAT PERSONELİN İSMİYLE AÇILMADIĞI İÇİN ELLE İSİM YAZMAM GEREKİYOR. MAKRODA BİR YERDE EKSİKLİK Mİ YAPTIM ACABA. YARDIMCI OLURSANIZ SEVİNİRİM.
 
tam anlamadım ama, böyle bir şeymi aradın...
Kod: 
Sheets.Add After:=ActiveSheet             'yeni sayfa açılsın
ActiveSheet.Name = "personeladı"       'yeni sayfaya personel adı verilsin

'not: mesajlarını büyük harfle yazma; yanlış anlaşılır..!
 
Son düzenleme:
hımmmmmmmm' Alıntı:
tam anlamadım ama, böyle bir şeymi aradın...
Kod: 
Sheets.Add After:=ActiveSheet             'yeni sayfa açılsın
ActiveSheet.Name = "personeladı"       'yeni sayfaya personel adı verilsin

'not: mesajlarını büyük harfle yazma; yanlış anlaşılır..!
Genişletmek için tıkla ...


MERHABA CEVABINIZ İÇİN TEŞEKKÜR EDİYORUM ÖNCELİKLE... BENİM HAZIRLADIĞIM BİR ŞABLON VAR FAKAT İSTEDİĞİM HAMLEYİ YAPAMIYORUM SADECE BU KONUDA YARDIM İSTİYORUM. YAPTIĞIM ŞABLONU ATABİLİRİM. ibrahim_hsplt@hotmail.com mail adresim benim buradan da yazışabiliriz.
 
merhaba ibrahim bey...
dosyanızda örnek teşkil eden bir şeyler yaparak dosyanızı bu siteye yükleyin... dosya linkini yazın...
yeni konu olarak istediğinizi belirtin... yardımcı olunur...

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle
www.dosya.tc www.dosya.tc
 
Son düzenleme:
hımmmmmmmm' Alıntı:
merhaba ibrahim bey...
dosyanızda örnek teşkil eden bir şeyler yaparak dosyanızı bu siteye yükleyin... dosya linkini yazın...
yeni konu olarak istediğinizi belirtin... yardımcı olunur...

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle
www.dosya.tc www.dosya.tc
Genişletmek için tıkla ...

DENEME_YILLIK_IZIN_-_BUTONLU-MAKROSUZ.xlsx dosyasını indir - download

DENEME_YILLIK_IZIN_-_BUTONLU-MAKROSUZ.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle
s4.dosya.tc s4.dosya.tc

DOSYAM BUDUR. İSİM VE GİRİŞ TARİHİNİ YAZDIKTAN SONRA KAYIT BUTONUNA BASINCA AŞAĞIDA O İSME AİT BİR SHEET AÇILMASINI İSTİYORUM.
 
Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.
Kod: 
Option Explicit

Sub YeniSayfa()
    Dim syf As Worksheet
    Dim YeniSayfaAdi As String
    YeniSayfaAdi = ActiveCell.Text
    If Not ActiveCell.Column = 3 Then
        MsgBox "Lütfen önce 'Adı Soyadı' kolonundan seçim yapınız.", vbExclamation
        Exit Sub
    End If
    If YeniSayfaAdi = "" Then
        MsgBox "Boş hücre seçmişsiniz. Lütfen geçerli bir 'Adı Soyadı' içeren hücre seçiniz.", vbExclamation
        Exit Sub
    End If
    For Each syf In ThisWorkbook.Worksheets
        If syf.Name = YeniSayfaAdi Then
            MsgBox "Seçtiğiniz 'Adı Soyadı'na ait bir sayfa zaten var.", vbExclamation
            Exit Sub
        End If
    Next
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = YeniSayfaAdi
    MsgBox "Yeni Sayfa eklendi.", vbInformation
End Sub

 

Ekli dosyalar

Son düzenleme:
Aşağıdaki makro çalıştığında C sütununu kontrol eder ve C sütunundaki isimle aynı adda sayfa yoksa sayfasını oluşturur:

PHP: 
Sub personel()
Set s1 = Sheets("PERSONEL LİSTESİ")
Set s2 = Sheets("BOŞ")
son = s1.Cells(Rows.Count, "C").End(3).Row
For kisi = 2 To son
    sayfa = "yok"
    For i = 1 To Sheets.Count
        If Sheets(i).Name = s1.Cells(kisi, "D") Then
            sayfa = "var"
            i = Sheets.Count
        End If
    Next
    If sayfa = "yok" Then
        s2.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = s1.Cells(kisi, "D")
        ActiveSheet.[C4] = s1.Cells(kisi, "C")
        msg = msg & Chr(10) & s1.Cells(kisi, "C")
        a = a + 1
    End If
Next
If a = 0 Then
    MsgBox "Tüm liste kontrol edildi." & Chr(10) & "Yeni personel bulunamadı!", vbInformation
Else
    MsgBox "Tüm liste kontrol edildi." & Chr(10) & Chr(10) & "Bulunan yeni personel sayısı: " & a _
        & Chr(10) & Chr(10) & "Aşağıdaki personeller için sayfa oluşturuldu:" & msg, vbInformation
End If
End Sub
 
dalgalikur' Alıntı:
Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.
Kod: 
Option Explicit

Sub YeniSayfa()
    Dim syf As Worksheet
    Dim YeniSayfaAdi As String
    YeniSayfaAdi = ActiveCell.Text
    If Not ActiveCell.Column = 3 Then
        MsgBox "Lütfen önce 'Adı Soyadı' kolonundan seçim yapınız.", vbExclamation
        Exit Sub
    End If
    If YeniSayfaAdi = "" Then
        MsgBox "Boş hücre seçmişsiniz. Lütfen geçerli bir 'Adı Soyadı' içeren hücre seçiniz.", vbExclamation
        Exit Sub
    End If
    For Each syf In ThisWorkbook.Worksheets
        If syf.Name = YeniSayfaAdi Then
            MsgBox "Seçtiğiniz 'Adı Soyadı'na ait bir sayfa zaten var.", vbExclamation
            Exit Sub
        End If
    Next
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = YeniSayfaAdi
    MsgBox "Yeni Sayfa eklendi.", vbInformation
End Sub

Genişletmek için tıkla ...

ASLINDA BUNLARI YAZACAK KADAR BİLGİM YOK KUSURA BAKMAYIN..

VİDEO LİNKİNDEN İZLEYEREK BİRŞEYLER YAPMAYA ÇALIŞMIŞTIM. SİZE LİNKİ GÖNDERSEM ORADA KODLAR DA VAR OLUŞTURMAYA ÇALIŞTIM AMA HATA VERİYOR MAALESEF...

 
Sayın @ibrahimhaspolat 6 numaralı mesajda hem kod ve hem de örnek dosyanızı ekledim incelediniz mi?
 
ibrahimhaspolat' Alıntı:
DOSYA BULUNAMADI UYARISI VERMEKTEDİR.
Genişletmek için tıkla ...

makroyu kopyalayarak çalıştırmaya çalıştım butona bastığımda aşağıda o isimle sayfa açıyor ama boş bir sayfa açıyor. benim istediğim; o isimle sayfa açılsın ve o sayfa personelin izin sayfası olsun...ve o izin sayfasında personelin adı soyadı ve işe giriş tarihini de yazsın... bu aslında attığım videoda var ondan çok ta farklı birşey istemiyorum. buton kısmında takılıyorum..
 
Bir de benim verdiğim koda baksaydınız keşke!
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst