işlem kısmına " k " yazıp güncelle tuşuna bastığımda bu sayfadaki ürün kalite sayfasına aktarılıyor. ancak; aktarma esnasında
ağ paylaşımında diğer kullanıcılardan dolayı satırlarda çakışma oluyor ve burdan gönderilen satır, kalitedeki satırın üstüne yazılıyor.
dolayısıyla ordaki satır sistemden silinmiş oluyor.
bunu engelleyecek ek bir makro rica ediyorum.
makro 1
Sub aktar()
Dim sonsat_kalite As Long, sat As Long, i As Long, k As Byte
Sheets("kalite").Select
sonsat_kalite = Cells(65536, "A").End(xlUp).Row
sat = Sheets("dosya").Cells(65536, "A").End(xlUp).Row + 5
For i = sonsat_kalite To 2 Step -1
If LCase(Replace(Replace(Cells(i, "j").Value, "D", "d"), "d", "d")) = "d" Then
For k = 1 To 20
Sheets("dosya").Cells(sat, k).Value = Cells(i, k).Value
Next k
sat = sat + 1
Rows(i).Delete
End If
Next i
MsgBox "İşlem Tamam.."
End Sub
ağ paylaşımında diğer kullanıcılardan dolayı satırlarda çakışma oluyor ve burdan gönderilen satır, kalitedeki satırın üstüne yazılıyor.
dolayısıyla ordaki satır sistemden silinmiş oluyor.
bunu engelleyecek ek bir makro rica ediyorum.
makro 1
Sub aktar()
Dim sonsat_kalite As Long, sat As Long, i As Long, k As Byte
Sheets("kalite").Select
sonsat_kalite = Cells(65536, "A").End(xlUp).Row
sat = Sheets("dosya").Cells(65536, "A").End(xlUp).Row + 5
For i = sonsat_kalite To 2 Step -1
If LCase(Replace(Replace(Cells(i, "j").Value, "D", "d"), "d", "d")) = "d" Then
For k = 1 To 20
Sheets("dosya").Cells(sat, k).Value = Cells(i, k).Value
Next k
sat = sat + 1
Rows(i).Delete
End If
Next i
MsgBox "İşlem Tamam.."
End Sub