• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Kapalı Dosyadaki personelin açıklama bilgisi silmek

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
H

Hacı Bayram ÖZKAN

Yeni Üye
Katılım
21 Kas 2022
Mesajlar
81
Aldığı beğeni
20
Excel V
Office 2016 TR
Konu Sahibi
Merhaba Sayın Abilerim; hepinize kolay gelsin iki dosya ekliyorum. Biri açık diğer kapalı. İsteğim Açık dosya üzerinde çalışırken Kapalı PERSONEL dosyamda bulunan personele eklemiş (S Kolonuna) olduğum açıklama bilgisini InputBox ile silmek istiyorum. Ben açıklama silme için bir kod buldum ancak bu Kapalı PERSONEL dosyamdaki bütün açıklamaları siliyor, sizden isteğim benim seçtiğim personelin seçimi sicil ile yapacağım bu personele ait Kapalı dosyadaki açıklama bilgisini silsin.

Açık Dosyamdaki Büton: Tek Kişi Açıklama Bilgisi Sil
Bütün açıklamaları silen kod:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.


Dim a
a = InputBox("AÇIKLAMASI SİLİNECEK PERSONEL?", "LÜTFEN DİKKAT", ActiveCell)

Bu düzenleme nasıl uygulanır. Teşekkürler.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Deneyiniz.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sayın abim eline sağlık benim için uğraşmışsın, ancak bu kodla S kolonunda hücrede bulunan veriyi siliyor, oysa ben açıklamayı silmesini istemiştim.
if kac<>empty then dosyaac.Sheets("LİSTE").Range("S" & kac).Comment.ClearContents şu araya Comment ekledim ama yine olmadı. Bir bakar mısın? Teşekkürler.
 
Olumlu oy 0 Negatif oyla
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
şeklinde dener misiniz?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sayın abim 2 nolu mesajda Patronun vermiş olduğu cevap zaten öyle, o şekilde hücredeki veriyi siliyor oysa ben açıklamayı silmesini istiyorum.
 
Olumlu oy 0 Negatif oyla
ClearComments bu kod açıklamayı siler
ClearContents bu kod ise içeriği 2si farklı kod
 
Olumlu oy 0 Negatif oyla
halily' Alıntı:
ClearComments bu kod açıklamayı siler
ClearContents bu kod ise içeriği 2si farklı kod
Genişletmek için tıkla...
halily hocam inputbox A girilen değer varsayılan metin değil mi? Arkadaşın verileri sayısal gördüğüm kadarıyla
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Selamün Aleyküm; abicim çok özür dilerim. Kod çalıştı. ben;
a = InputBox("AÇIKLAMASI SİLİNECEK PERSONEL?", "LÜTFEN DİKKAT")*1 bu kısmı mesaj kutusuna aktif hücredeki sicili getirsin diye *1 kaldırmıştım ondan çalışmamış, bunu tekrar yazınca oldu.
Ancak
a = InputBox("AÇIKLAMASI SİLİNECEK PERSONEL?", "LÜTFEN DİKKAT", ActiveCell) * 1
Bu kodu yukardaki gibi değiştirince kapalı dosya açılıyor ya, ordaki aktif hücreyi mesaj kutusuna alıyor, oysa ben çalıştığım dosyanın sayfasının aktif hücresini mesaj kutusuna nasıl alırım. Silmek istediğim personelin sicili hızlıca bu mesaj kutusuna almak için. Teşekkürler.
 
Olumlu oy 0 Negatif oyla
aşağıdaki kodu dener misiniz?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Not: eğer siciller 1 tane ise bulduktan sonra çıkması da sağlanabilir
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi
halily' Alıntı:
aşağıdaki kodu dener misiniz?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Not: eğer siciller 1 tane ise bulduktan sonra çıkması da sağlanabilir
Genişletmek için tıkla...
Sayın hocam kodda hata yok buna gerek yok sadece şunu istiyorum, herşey normal silmek isteğim personelin sicili kendim el ile inputbox girmeden hangi personel silinecekse o personelin sicilini hücrede seçerek bunu Inputbox a hemen gelmesini istiyorum. normalde
a = InputBox("AÇIKLAMASI SİLİNECEK PERSONEL?", "LÜTFEN DİKKAT", ActiveCell) * 1 bunu yazınca geliyor, sorun yok ama sorun Kapalı dosyayı açtığı için burda hangi hücre seçili ise InputBox a o veri geliyor. yani çalıştığım dosyanın hücresi nasıl alırım bu mesaj kutusuna teşekkürler.
 
Olumlu oy 0 Negatif oyla
Madem ki secilen hücreden veri alınacak ozaman inputbox'a ne gerek var onu anlamadım ?
 
Olumlu oy 0 Negatif oyla
askan' Alıntı:
halily hocam inputbox A girilen değer varsayılan metin değil mi? Arkadaşın verileri sayısal gördüğüm kadarıyla
Genişletmek için tıkla...
Evet varsayılan olarak metin hocam ben o nedenle range().text özelliğini kullandım
 
Olumlu oy 0 Negatif oyla
aşağıdaki kodu dener misiniz aktif hücrenin olduğu satırdak sicil noyu siler
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Rica ederim
İyi çalışmalar)
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst