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

[Hacı Bayram ÖZKAN]

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:

İç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.

 

[Patron]

Deneyiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Hacı Bayram ÖZKAN]

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.

 

[halily]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

şeklinde dener misiniz?

 

[Hacı Bayram ÖZKAN]

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.

 

[halily]

ClearComments bu kod açıklamayı siler
ClearContents bu kod ise içeriği 2si farklı kod

 

[Hacı Bayram ÖZKAN]

Evet abicim o inceliği fart etmemiştim ama, buda açıklamı silmedi. Siz denediniz mi?

 

[askan]

ClearComments bu kod açıklamayı siler
ClearContents bu kod ise içeriği 2si farklı kod

halily hocam inputbox A girilen değer varsayılan metin değil mi? Arkadaşın verileri sayısal gördüğüm kadarıyla

 

[Hacı Bayram ÖZKAN]

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.

 

[VetExc]

şöyle deneyin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[halily]

aşağıdaki kodu dener misiniz?
HTML:

İç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

 

[Hacı Bayram ÖZKAN]

aşağıdaki kodu dener misiniz?
HTML:

İç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

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.

 

[halily]

Madem ki secilen hücreden veri alınacak ozaman inputbox'a ne gerek var onu anlamadım ?

 

[halily]

halily hocam inputbox A girilen değer varsayılan metin değil mi? Arkadaşın verileri sayısal gördüğüm kadarıyla

Evet varsayılan olarak metin hocam ben o nedenle range().text özelliğini kullandım

 

[Hacı Bayram ÖZKAN]

Tamam anladım o zaman Input u kaldıralım seçtiğim hücredeki sicil silinecek nasıl bir değişiklik olabilir. Teşekkürler.

 

[Hacı Bayram ÖZKAN]

Emeği geçen herkese yardımlarınınızdan dolayı çok teşekkür ederim. Kalın sağlıcakla iyi geceler Allah hepinizden razı olsun.

 

[halily]

aşağıdaki kodu dener misiniz aktif hücrenin olduğu satırdak sicil noyu siler
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Hacı Bayram ÖZKAN]

Tekrar Merhabalar; Halil bey teşekkür ederim. Zahmet verdim ellerinize sağlık iyi geceler efendim.

 

[halily]

Rica ederim
İyi çalışmalar)