Muhasebe icin yardım gereklı.

[Skıllrex]

Farklı sutunlardakı aynı satıları sılmek ıcın ne yapmamız gerekır? Elimde 12.000 verisi olan bır dosya var ve bunu temızlemem gerek ornek olarak:
A B
1-512,36
2 512,36
3-123,63
4 123,63
5-697,8
6-566,3
7- 566,3
Burada aynı olan sayıların sılınmesı ve farklı olan sayının kalması gıbı orneğin A1-B2**A3-B4**A6-B7 bunlar sılıncek B5 hucresı kalıcak.
Şimdiden Teşekkürler.İyi günler

 

[Skıllrex]

A1-512,36
B2 512,36
A3-123,63
B4 123,63
A5-697,8
B6-566,3
A7- 566,3
tabloya dokersenız daha ıyı anlarısınız sıteden dolayı tabloluyamadım.stajyer olarak calıstıgım ıcın dosyayı yukluyuyemıyorum.

 

[Huseyinkis]

A1-512,36
B2 512,36
A3-123,63
B4 123,63
A5-697,8
B6-566,3
A7- 566,3
tabloya dokersenız daha ıyı anlarısınız sıteden dolayı tabloluyamadım.stajyer olarak calıstıgım ıcın dosyayı yukluyuyemıyorum.

Merhaba sayıların olduğu alanı seçip Veri sekmesi altında yenilenenleri kaldır tuşu yardımı ile yapabilirsiniz.

 

[Skıllrex]

Sırala
filtre uygula
form..
alt toplamlar
dogrulama
tablo
metnı sutunlara dok
birlestir
gruplandir ve seviyelendir
ozet tablo ve özet grafik raporu
dış veri al;
listele
verileri yenile


veri sekmesınde bu secenekler var dedıgınız bır secenegı bulamadım

 

[Skıllrex]

office 2003 e gore acıklarmısınız? teşekkurler

 

[Necdet]

Merhaba,

2007 görünümü.

 

[Necdet]

office 2003 e gore acıklarmısınız? teşekkurler

İstediğiniz özellik 2003 sürümünde yok.

Madem 2003 kullanıyorsunuz bilgilerinizde neden 2007 var ?

 

[Skıllrex]

buna uygun bı makro bulabılırmısınz pekı ınternetı cogu makro sadece A stununu temızlıyo bana A ıle B de aynı olan sayıları kaldıran bı makro lazım

 

[Necdet]

buna uygun bı makro bulabılırmısınz pekı ınternetı cogu makro sadece A stununu temızlıyo bana A ıle B de aynı olan sayıları kaldıran bı makro lazım

Küçük örnek bir dosya ekleyiniz.

 

[Skıllrex]

ekledım burada A ve B stunlarında aynı olanları sılmek ıstıyorum

 

[Skıllrex]

yardım edebılıcek bırısı yokmu ?[

 

[nsertoglu]

Aşağıdaki kodu deneyin:

Sub ayni_sayi_ABsil()
syf = ActiveSheet.Name
' ns : Programın Açıklaması
' yanlışlık olmasın amacıyla ;
' G kolonu BOŞ kabul edildi ve silinecek satır için SİL yazıldı
' G kolonunda SİL yazan satırların silinmesi uygun ise makrodan sonra silersiniz..
Cells(1, "F").Select ' "F" gibi boşluğu olmayan kolon olsun;kaç satıra işlem yapılacak belirlensin
sonR = Selection.End(xlDown).Row

For r = sonR To 2 Step -1 ' 1 nolu satırda başlık olduğu varsayıldı
a = Cells(r, "A") ' A kolonundaki değer

If (a <> Empty Or a <> 0) Then
b = Cells(r - 1, "B") ' B kolonundaki değer
If (b <> Empty Or b <> 0) And (a = b) Then
Cells(r, "a").Select
Cells(r - 1, "G") = "sil"
Cells(r, "G") = "sil"
'Rows(r).Select
'Rows(r).Delete
'Rows(r - 1).Select
'Rows(r - 1).Delete
End If
End If
Next r

End Sub