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 05-12-2017, 01:55   #1
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,565
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan Personelin karşısına görev yerlerini yazma

Merhaba, hayırlı geceler.

Ekteki excel dosyamda personel görevleri hazırlamaya çalışıyorum.
Sayın Ömer BARAN Bey, birleştirilmiş hücreleri gizleyerek personelleri
Sayfa2'ye aktarma kodu yazmıştı.

Benim yapmak istediğim butona bastığımda personelleri aktardıktan sonra,
Sayfa1'deki birleştirilmiş hücre içerisindeki görev yerlerini personellerin karşısına yazmasını istiyorum.

Yardımcı olur musunuz?
Eklenmiş Dosyalar
Dosya Türü: xlsm GÖREV.xlsm (23.6 KB, 25 Görüntülenme)
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...

Bu mesaj en son " 06-12-2017 " tarihinde saat 18:01 itibariyle ASLAN7410 tarafından düzenlenmiştir....
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-12-2017, 07:26   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

İşlemin olması için ilk kişilerinde üst kısmında görev yerlerinin yazması gerekmez mi. Ali il Velinin.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 05-12-2017, 07:30   #3
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,565
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın askm, ilginiz için çok teşekkür ediyorum.

Dediğiniz kişiler sabit olduğu için görev yerleri yok, yani rütbeli amirler.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-12-2017, 08:01   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub askm()
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
Dim son As Long
son = s1.Range("B" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
s2.Range("B2:F65000").ClearContents
a = 2
For i = 9 To son
    If s1.Range("B" & i & ":U" & i).MergeCells = True Then GorevYeri = s1.Cells(i, 2)
    If s1.Cells(i, 3) <> Empty Then
        s2.Cells(a, 2) = a - 1
        s2.Cells(a, 3) = s1.Cells(i, 3)
        s2.Cells(a, 4) = s1.Cells(i, 4)
        s2.Cells(a, 5) = s1.Cells(i, 5)
        s2.Cells(a, 6) = GorevYeri
        a = a + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 05-12-2017, 16:16   #5
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,565
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın askm, kod tam istediğim gibi güzel çalışıyor, çok teşekkür ederim.


Hayırlı çalışmalar, hayırlı günler.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-12-2017, 16:19   #6
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,131
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Excel ile ilgisi yok ama, ufak bir hatırlatma;

"Personel" tekil veya çoğul şahıs/şahıslar için aynen kullanılır. Yani; 2 veya daha fazla kişi için ayrıca çoğul eki kullanılmaz.

1 personel, 10 personel ... gibi.

.
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-12-2017, 17:54   #7
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

Rica ederim. İyi aksamlar.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 06-12-2017, 18:02   #8
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,565
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın Haluk Bey, ilginiz için teşekkür ediyorum, başlığı düzelttim.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 18:04   #9
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,565
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın askm, yazmış olduğunuz kod gayet güzel çalışıyor, elinize sağlık,
çok teşekkür ediyorum.

Ben bu kodu bir kaç sayfa için yapmaya çalıştığım zaman aktardığı yere
sadece bir sayfayı aktarıyor, bütün sayfalar için ayarlayabilir misiniz?
.
Eklenmiş Dosyalar
Dosya Türü: xlsm GÖREV1.xlsm (40.7 KB, 8 Görüntülenme)
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...

Bu mesaj en son " 06-12-2017 " tarihinde saat 18:14 itibariyle ASLAN7410 tarafından düzenlenmiştir....
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 18:47   #10
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,565
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın askm, yapmak istediğim 3 ayrı listeyi tek bir listeye düşürmek.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Ç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 16:04


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 - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- 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- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden