Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 27-03-2016, 09:49   #1
PSecurity
 
PSecurity kullanıcısının avatarı
 
Giriş: 15/05/2011
Şehir: Gaziantep
Mesaj: 14
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan Bir Hücreye Veri Girildiği Zaman Diğer Hücreleri Silme

Merhaba arkadaşlar,

Bir konuda yardımıza ihtiyaç duydum, eğer yardımcı olursanız çok memnun olacağım.

Günlük geniş kapsamlı bir rapor tutuyorum kendime, bu raporun personel kısmında gelen izinli raporlu personelleri ayrıştırmaya çalışıyorum. Tabi bu raporu her gün bir önceki rapordan kopya alarak veri güncellediğim için dalgınlıktan kaynaklı hataların önüne geçmeye çalışıyorum. Personel sayısı günlük değişken oluyor araya taşeron firmalar falan giriyor gibi.

Sorunumu anlatmaya çalışayım.


yukarıdaki gibi bir tablo oluşturdum kendime.
eklemek istediğim özellik ise Örneğin Bugün Mühendis Mustafa çalışıyor muhasebeci ali izinli. Yarın Alinin izini bitecek ve Mühendis Mustafa izine ayrılacak diyelim. Ben bugünkü raporun kopyasını alıp ertesi gün için güncellerken. Mühendis Mustafayı izinli hücresine "x" işareti koyduğumda Çalışan hücresindeki "x" işaretini otomatik silsin. Muhasebeci ali iş başı yaptığı zaman çalışan kısmına "x" işaretini koyduğumda (veya herhangi bir yazı girdiğimde) izinli kısmındaki işareti otomatik silsin ki aynı personeli iki defa saymasın istiyorum. Bazen dalgınlık olabiliyor elle düzeltmeyi unutabiliyorum.

Roporlu izinli ve çalışan hücreleri arasında böyle bir bağlantı oluşturmak istiyorum bunlardan herhangi bir hücreyi herhangi bir yazı metin yazdığım zaman diğer iki bölümdeki verileri otomatik silmesini sağlayabilir miyim.

Umarım derdimi anlatabilmişimdir. Eğer yardımcı olursanız çok minnettar olurum. Şimdiden çok çok teşekkür ediyorum.
PSecurity Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-03-2016, 12:13   #2
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [C6:H1000]) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    s = Target.Column
    sa = Target.Row
    
    If s = "3" Then Range("E" & sa & ":I" & sa) = ""
    If s = "5" Then Range("C" & sa & ":D" & sa) = "": Range("H" & sa & ":I" & sa) = ""
    If s = "8" Then Range("C" & sa & ":G" & sa) = ""
    Application.EnableEvents = True
    
End Sub
. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-03-2016, 21:13   #3
PSecurity
 
PSecurity kullanıcısının avatarı
 
Giriş: 15/05/2011
Şehir: Gaziantep
Mesaj: 14
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Hocam öncelikle yardımınız için teşekkür ederim. fakat çalıştıramadım. Daha doğrusu tam olarak ne yapacağımı bilmiyorum. Google ile excel makro ekleme çalıştırma excel vb ekleme diye arama yaptım anlatılanları denedim ama olmadı ya da ben beceremedim. Microsoft office 2013 kullanıyorum
PSecurity Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-03-2016, 21:38   #4
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

Çalışma sayfası isminin üzerinde sağ tıkla > kodları görüntüle
açılan ekrana yukarıdaki kodları yapıştırın.

Excel sayfasına dönüp,
C6:H1000 hücre aralığına veri girerek gözlemeyin...

. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-03-2016, 07:43   #5
PSecurity
 
PSecurity kullanıcısının avatarı
 
Giriş: 15/05/2011
Şehir: Gaziantep
Mesaj: 14
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Hocam sizleri yorduğumu düşünerek mahçup oluyorum ve özür diliyorum kusurumu bağışlayın lütfen.

Sağ tıkla Kodları Görüntüle dedim



Sizin verdiğiniz kodları çıkan tabloya yapıştırdım ve kaydettim.



Fakat deneme yapmak istediğimde yine başarısız oldum.
PSecurity Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-03-2016, 10:12   #6
PSecurity
 
PSecurity kullanıcısının avatarı
 
Giriş: 15/05/2011
Şehir: Gaziantep
Mesaj: 14
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Hocam kod çalıştı fakat bu defa farklı bir sorun baş gösterdi nasıl editleyebilirim acaba.

Kod eklenip çalıştırıldıktan sonra
C126 hücresine =BAĞ_DEĞ_DOLU_SAY(C127128) yazıyorum problem yok görev yapıyor
E126 hücresine =BAĞ_DEĞ_DOLU_SAY(E127:G128) yazdığım zaman bu defa bir üstte C126 Hücresine yazdığım formülü siliyor ve yine
H126 hücresine =BAĞ_DEĞ_DOLU_SAY(H127:I128) yazdığımda ise bu defa diğer iki C126 ve E126 ya yazdığım formüller siliniyor.

aslında kod başarılı şekilde çalışıyor ama ben bu silme işlemi [C123:I269] aralığının tamımında değilde sadece belirli satırlarda yapmasını sağlamam için nasıl editlemem lazım.

Personel görevi yazan satırları atlayıp sadece isimlerin olduğu satırlarda işlem yapması mümkün mü?
çalışma dosyam burada hocam
http://www.dosya.tc/server7/67hb87/r...lisma.xls.html

Bu mesaj en son " 28-03-2016 " tarihinde saat 10:47 itibariyle PSecurity tarafından düzenlenmiştir....
PSecurity Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-03-2016, 11:32   #7
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [C124:I269]) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    s = Target.Column
    sa = Target.Row
    
    If Target.HasFormula = False Then
        If s = "3" Then Range("E" & sa & ":I" & sa) = ""
        If s = "5" Then Range("C" & sa & ":D" & sa) = "": Range("H" & sa & ":I" & sa) = ""
        If s = "8" Then Range("C" & sa & ":G" & sa) = ""
    End If
    
    Application.EnableEvents = True
    
End Sub
. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-03-2016, 23:02   #8
PSecurity
 
PSecurity kullanıcısının avatarı
 
Giriş: 15/05/2011
Şehir: Gaziantep
Mesaj: 14
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Yardımlarınızdan ve sabrınızdan dolayı çok çok teşekkür ediyorum hocam.
PSecurity Ç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 18:49


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