Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


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

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 04-11-2017, 15:02   #1
baris1987
Altın Üye
 
Giriş: 10/01/2013
Mesaj: 20
Excel Vers. ve Dili:
2010 türkçe
Varsayılan Nöbet Listesi Yapma

Öncelikle hepinize kolay gelsin benim sorum şu şekilde bir nöbet listesi yapmak ile ilgili
Ek teki dosyada sayfa 1 de bulunan listede nöbet tutan personeller ve nöbet tuttuğu aylarda "x" işareti ile gösterilmekte. Benim istediğim sayfa 2 kısmına ad soyad bölümünde boşluklar olmadan liste halinde sıralı bir biçimde sayfa 1 deki kişilerin sayfa 2 de listelenmesi. Dolu say gibi bir formül aklıma geldi ama çözemedim.
Yardımlarınız için şimdiden teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: xlsx Yeni Microsoft Excel Çalışma Sayfası.xlsx (9.8 KB, 9 Görüntülenme)
baris1987 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-11-2017, 19:23   #2
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,375
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Dosyanın vba bölümünde modul1 e yapıştırın ve dosyayı makro içeren .xlsm dosya olarak kaydedin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Sayfa_kopyala()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set sh1 = Sheets("Sayfa1")
    Set sh2 = Sheets("Sayfa2")
    
    sh2.Select
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    Range("A2:AF" & sonsatir).ClearContents
    Range("A2").Select
    
    sh1.Select
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    Range("A3:AF" & sonsatir).Select
    Selection.Copy
    
    sh2.Select
    Range("A2").Select
    ActiveSheet.Paste
    
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    For i = sonsatir To 2 Step -1
      isim = Cells(i, "A").Value
      If isim = "" Then Rows(i).Delete
    Next i
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Range("A2").Select
End Sub
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-11-2017, 19:38   #3
baris1987
Altın Üye
 
Giriş: 10/01/2013
Mesaj: 20
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

makrosuz formülle olmaz mı hocam bu arada ilgilendiğiniz için teşekkür ederim. Şirketin güvenlik ayarları makro yapılmasına izin vermiyor
baris1987 Ç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:09


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- 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 Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden