Verileri Topluca Yeni Verilerle Değiştirmek

[baydeniro]

Merhaba Arkadaşlar,
C Sütunundaki verilerin F sütununda karşılığı varsa D sütunundaki verileri tablonun bulunduğu aynı konumda G sütunu verileri ile değiştirsin, karşılığı olmayanların D sütunundaki mevcut verileri yerinde kalması makro ile mümkün müdür.

 

[EmrExcel16]

Merhaba , deneyiniz..

Option Explicit
Sub Degistir()
    Dim i, Bul
    For i = 3 To Cells(Rows.Count, 6).End(3).Row
        Set Bul = Range("C2:C100000").Find(Cells(i, 6), , xlValues, xlWhole)
        If Not Bul Is Nothing Then
            Cells(Bul.Row, 4).Value = Cells(i, 7).Value
        End If
    Next
End Sub

 

[baydeniro]

Merhaba , deneyiniz..

Option Explicit
Sub Degistir()
    Dim i, Bul
    For i = 3 To Cells(Rows.Count, 6).End(3).Row
        Set Bul = Range("C2:C100000").Find(Cells(i, 6), , xlValues, xlWhole)
        If Not Bul Is Nothing Then
            Cells(Bul.Row, 4).Value = Cells(i, 7).Value
        End If
    Next
End Sub

EmreExcel16 üstadım çok çok teşekkür ediyorum, harika bir kod, sağlıcakla kalın

 

[EmrExcel16]

EmreExcel16 üstadım çok çok teşekkür ediyorum, harika bir kod, sağlıcakla kalın

Rica ederim , iyi çalışmalar..

 

[baydeniro]

Merhaba , deneyiniz..

Option Explicit
Sub Degistir()
    Dim i, Bul
    For i = 3 To Cells(Rows.Count, 6).End(3).Row
        Set Bul = Range("C2:C100000").Find(Cells(i, 6), , xlValues, xlWhole)
        If Not Bul Is Nothing Then
            Cells(Bul.Row, 4).Value = Cells(i, 7).Value
        End If
    Next
End Sub

Üstad veriler farklı sayfalarda olsaydı kodu nasıl revize edilir acaba !
Örneğin C-D sütunundaki veriler STOK, F-G sütunundaki veriler SEVK sayfalarında olsa

 

[EmrExcel16]

Kodları aşağıdaki gibi değiştirmeniz gerekir..

Option Explicit
Sub Degistir()
    Dim i, Bul
    For i = 3 To Sheets("SEVK").Cells(Rows.Count, 6).End(3).Row
        Set Bul = Sheets("STOK").Range("C2:C100000").Find(Sheets("SEVK").Cells(i, 6), , xlValues, xlWhole)
        If Not Bul Is Nothing Then
            Sheets("STOK").Cells(Bul.Row, 4).Value = Sheets("SEVK").Cells(i, 7).Value
        End If
    Next
End Sub

 

[baydeniro]

Kodları aşağıdaki gibi değiştirmeniz gerekir..

Option Explicit
Sub Degistir()
    Dim i, Bul
    For i = 3 To Sheets("SEVK").Cells(Rows.Count, 6).End(3).Row
        Set Bul = Sheets("STOK").Range("C2:C100000").Find(Sheets("SEVK").Cells(i, 6), , xlValues, xlWhole)
        If Not Bul Is Nothing Then
            Sheets("STOK").Cells(Bul.Row, 4).Value = Sheets("SEVK").Cells(i, 7).Value
        End If
    Next
End Sub

emrExcel16 üstadım, harika oldu gerçekten. çok çok teşekkür ediyorum, sağlıcakla kalın