iki sayfa arası ayni değeri bulup silme.

[aloneman35]

arkadaşalar ocağınıza düştüm yardımlarınızı beklıyorum dosyanın içinde ayrıntılı yazdım yardımlarınızı beklıyorum çok saolun şimdiden herkse tşkler hocalarım.


HOCAM DOSYANIN İÇERİĞİNİ DEĞİŞTİRDİM ŞİMDİ BİR BAKARMISIN LÜTFEN YARDIMLARINIZI BEKLIYORUM.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub BulVeYaz()
Dim i, SonSatir As Long
Dim c As Range
Application.ScreenUpdating = False
SonSatir = [A65536].End(3).Row
Range("I2:L65536").ClearContents
For i = 2 To SonSatir
    With Range("G2:G" & SonSatir)
        Set c = .Find(Cells(i, "A"), LookIn:=xlValues)
        If Not c Is Nothing Then
            Cells(c.Row, "I") = Cells(i, "C")
            Cells(c.Row, "J") = Cells(i, "D")
            Cells(c.Row, "K") = Cells(i, "E")
            Cells(c.Row, "L") = Cells(i, "F")
        End If
    End With
Next i
Range("I1:I" & SonSatir).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "Borcu Yok"
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır....", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[sinbade]

I2 hücresine aşağıdaki kodu yazıp çoğaltsanız olmaz mı acep?

=EĞER($A2=$G2;C2;"Borcu Yok")

kolay gelsin

 

[Necdet]

I2 hücresine aşağıdaki kodu yazıp çoğaltsanız olmaz mı acep?

=EĞER($A2=$G2;C2;"Borcu Yok")

kolay gelsin

Merhaba,

Bilgiler aynı satırda olsaydı olurdu tabi,

DÜŞEYARA kullanılırsa olur.

 

[UMUTBERK]

düşey ara ile yapabilirsin. Ekteki örnekte formülü bulabilirsin.

 

[aloneman35]

hocalarım abilerim ellerine saglık elleriniz dert görmesin bombasınız iyiki varsınız çok teşekkür ederim bütün bu anın gelmesını bekledım işyerinde koruma programı var ve giremiyorum sizlerle ancak aksam birlikte olabiliyorum çok tşkler dostlarım.

 

[aloneman35]

Hocam içeriği biraz değiştirdim yardım edermisin.