[offtopic için özür] Excelde bir soru

rename · 06.12.2001

selam öncelikle offtopic için kusura bakmayın
daha önceden oluşturumuş bir excel dosyam var ve burada bir kolonda birçok hücre aynı ve ben hepsini tek tek temizleyemiyorum
sort ettikten sonra bile yaklaşık 5000(5bin) hücre olunca zor oluyor.
VBscript ile buna birçözüm bulunur ama ben VBS bilmiyorum.

yardımcı olacak arkadaşlar isterlerse özelden mail de atabilirler.

şimdiden teşekkürler,

absconder · 07.12.2001

yardımcı olabilirim [=elimden geldiğince].

webmaster@sipidik.com mail atarsan...

uzaytek · 07.12.2001

şu makroyu copy-pasteleyip çalıştırırsan o sütunda aradığın değerler silinir. eğer ötelenmesini istersen
ActiveCell.Clear değerini ActiveCell.Delete yapman gerekir.
çalıştırmadan önce değerlerin bulunuduğu sütunun birinci hücresini aktif hale getir.

Sub Tarama()
On Error GoTo 30
ColSin = InputBox("Sütun Sınır Değerini Giriniz", "Tarama")
If ColSin = "" Then GoTo 30
Aranan = InputBox("Aranan Değeri Giriniz", "Tarama")
If Aranan = "" Then GoTo 30
ColSin = Val(ColSin)
ActiveCell.Offset(0, 0).Activate
For colIndex = 1 To ColSin
If ActiveCell.Value = Aranan Then ActiveCell.Clear
ActiveCell.Offset(1, 0).Activate
Next colIndex
30 End Sub

06.12.2001	#1 (permalink)
rename Üyelik Tarihi: 23.08.2001 Yer: Istanbul Yaş: 32 Mesaj: 84	[offtopic için özür] Excelde bir soru selam öncelikle offtopic için kusura bakmayın daha önceden oluşturumuş bir excel dosyam var ve burada bir kolonda birçok hücre aynı ve ben hepsini tek tek temizleyemiyorum sort ettikten sonra bile yaklaşık 5000(5bin) hücre olunca zor oluyor. VBscript ile buna birçözüm bulunur ama ben VBS bilmiyorum. yardımcı olacak arkadaşlar isterlerse özelden mail de atabilirler. şimdiden teşekkürler, __________________ rename

07.12.2001	#2 (permalink)
absconder Üyelik Tarihi: 09.12.2000 Yer: istanbul Yaş: 30 Mesaj: 1,947	yardımcı olabilirim [=elimden geldiğince]. webmaster@sipidik.com mail atarsan... __________________ "oturduğum mahallenin yolları çamurluydu, boyalı ayakkabı giysem bile, o yollardan geçtikten sonra çamurlanmamaları mümkün değildi. hayatım da böyle." yılmaz güney http://www.sipidik.com

07.12.2001	#3 (permalink)
uzaytek Üyelik Tarihi: 06.07.2001 Yer: Ankara Yaş: 33 Mesaj: 679	şu makroyu copy-pasteleyip çalıştırırsan o sütunda aradığın değerler silinir. eğer ötelenmesini istersen ActiveCell.Clear değerini ActiveCell.Delete yapman gerekir. çalıştırmadan önce değerlerin bulunuduğu sütunun birinci hücresini aktif hale getir. Sub Tarama() On Error GoTo 30 ColSin = InputBox("Sütun Sınır Değerini Giriniz", "Tarama") If ColSin = "" Then GoTo 30 Aranan = InputBox("Aranan Değeri Giriniz", "Tarama") If Aranan = "" Then GoTo 30 ColSin = Val(ColSin) ActiveCell.Offset(0, 0).Activate For colIndex = 1 To ColSin If ActiveCell.Value = Aranan Then ActiveCell.Clear ActiveCell.Offset(1, 0).Activate Next colIndex 30 End Sub

Sponsorlu Bağlantılar
Zoque.Forum Reklam