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, 13 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,553
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 08:53


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden