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 15-06-2017, 19:21   #1
sirkülasyon
Altın Üye
 
sirkülasyon kullanıcısının avatarı
 
Giriş: 10/07/2012
Şehir: Malatya / Hekimhan
Mesaj: 935
Excel Vers. ve Dili:
2016 TR
Varsayılan KBS sisteminden alınan Banka Listesinde bulunan Boşlukları Silme

Değerli Arkadaşlar;
Ekli formda yardımlarınıza ihtiyacım var.
Ekli formda banka listesi mevcut. Bu Liste KBS (Maliye Bakanlığı Maaş Sistemi) üzerinden alınan liste.
Ekteki liste örnek olup kısaltılmıştır. Bu durum 1969 satırına kadar devam ediyor. 153 okul bulunmaktadır.
Bu liste 1365 kişinin okul okul yer aldığı bir liste. Bu listenin "B" sütununda sıra no kısmı var.
1 - Makro ile Sıra No kısmına bakacak bittiği yerden ikinci sıra no kısmının başlayacağı yere kadar olan kısmı silecek.
2 - Sıra No' lar alt alta gelecek ve üst sıra numarasından kaldığı yerden devam edecek.
Bu işlem bittikten sonra
3 - Maaş Tutarı Kısmı toplanacak "BM2" hücresine aktarılacak.
4 - BM1 hücresine manuel girilen değer ile eşitse "BL4" hücresine "EŞİTLİK SAĞLANDI" eşit değilse eğer "BL4" hücresine aynı hücresine "EŞİTLİK SAĞLANMADI" uyarısı verecek.
5 - "BM3" hücresine ise toplam personel sayısını yazacak.

NOT :
KBS sisteminden indirilen sayfa bu sayfaya kopyala yapıştır ile gelecek. Eğer mümkünse
- Makro ile kopyalanacak dosya seçilse seçilen dosya bu sayfaya aktarılsa daha sonra yukarıda ki işlemler yapılsa olur mu?

Yardımını esirgemeyen tüm arkadaşlarıma teşekkür ederim. Saygılarımla
Eklenmiş Dosyalar
Dosya Türü: xls FOR BANKA.xls (130.0 KB, 13 Görüntülenme)

Bu mesaj en son " 15-06-2017 " tarihinde saat 19:24 itibariyle sirkülasyon tarafından düzenlenmiştir.... Neden: ek tekrar yükleme
sirkülasyon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 07:52   #2
sirkülasyon
Altın Üye
 
sirkülasyon kullanıcısının avatarı
 
Giriş: 10/07/2012
Şehir: Malatya / Hekimhan
Mesaj: 935
Excel Vers. ve Dili:
2016 TR
Varsayılan

Konu güncelliğini yitirmesin diye hatırlatmak istedim
sirkülasyon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 08:17   #3
sirkülasyon
Altın Üye
 
sirkülasyon kullanıcısının avatarı
 
Giriş: 10/07/2012
Şehir: Malatya / Hekimhan
Mesaj: 935
Excel Vers. ve Dili:
2016 TR
Varsayılan

Konu güncelliğini yitirmesin ve gerçekten önem arz ettiği için tekrar hatırlatmak istedim
sirkülasyon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 17:14   #4
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,029
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Yok maalesef.
Varsayılan

Sizin istediğiniz gibi olmadı ama bir inceleyin isterseniz:

https://drive.google.com/file/d/0B43...ew?usp=sharing

Asıl listeyi ilk sayfaya yapıştırınca olması gereken sayfasındaki düğmeye bastığınızda gerekli düzenlemeleri yapacaktır.
__________________
Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 10:54   #5
sirkülasyon
Altın Üye
 
sirkülasyon kullanıcısının avatarı
 
Giriş: 10/07/2012
Şehir: Malatya / Hekimhan
Mesaj: 935
Excel Vers. ve Dili:
2016 TR
Varsayılan

Yusuf Abi
Ellerine Sağlık Mükemmel Olmuş.
Çok çok teşekkür ederim. Hakkını Helal Et.
sirkülasyon Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 12:27   #6
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,029
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Yok maalesef.
Varsayılan

Son not satırının yüksekliğini ayarlamayı unutmuşum. En sona aşağıdaki satırı ilave ederseniz satır yüksekliğini 30 yapar (ben wraptext ile birim toplamı satırının arasına ekledim):

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
    s2.Rows(yeni + 1).RowHeight = 30
__________________
Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 12:58   #7
sirkülasyon
Altın Üye
 
sirkülasyon kullanıcısının avatarı
 
Giriş: 10/07/2012
Şehir: Malatya / Hekimhan
Mesaj: 935
Excel Vers. ve Dili:
2016 TR
Varsayılan

Yusuf Abi

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
s2.Rows(yeni + 1).RowHeight = 30
Yukarıda ki kodu makro sonuna ekledim. Teşekkür ederim.
sirkülasyon Ç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 23:29


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