mevcut kodlara mükerrer kayıt ilavesi olabilirmi

[ridvan2111]

arsiv sayfası b sütununa aynı kayıttan yaparsa uyarsın ve eski
kayıtla degistirsin.
mevcut kodlara nasıl ilave yapabilirim
ve mümkünse silmek istedigim kaydı b sütunundan bulup (b:z) satırlarını
silsin yardıma ihtiyacım var
dosyayı ekliyorum.

 

[ridvan2111]

Arkadaşlar bu işlemleri userform üzerinden yapmak tabiki daha iyi olur mümkünse kendi yorumlarınızı ekleyerek düzenleyebilirsiniz.

 

[Mahmut Kök]

Sub aktar()
Dim i As Byte, sat As Long
Sheets("Kayıt Giriş").Select
Set s1 = Sheets("ARŞİV")
Set s2 = Sheets("Kayıt Giriş")
kod = s2.[c4]
Set varmı = s1.Range("b3:b65536").Find(kod)
If varmı Is Nothing Then
sat = s1.Cells(65536, "B").End(xlUp).Row + 1
Else
sat = s1.Range("b3:b65536").Find(kod).Row
End If
s1.Cells(sat, "A").Value = sat - 2
For i = 4 To 28
    s1.Cells(sat, i - 2).Value = Cells(i, "C").Value
Next i
Set s1 = Nothing
Set s2 = Nothing
MsgBox "Desen bilgileri eklendi..!!"
End Sub

 

[ridvan2111]

teşekkür ederim MESLEKİ
fakat aynı kayıttan var olduğunu belirtmiyo
ayanı kayıttan var uyarı mesajı alırsam
çok daha iyi olacak

 

[ridvan2111]

yani eski kayıt değiştirildi gibi mesaj verebilirmi

 

[Mahmut Kök]

[LEFT]Sub aktar()
Dim i As Byte, sat As Long
Sheets("Kayıt Giriş").Select
Set s1 = Sheets("ARŞİV")
Set s2 = Sheets("Kayıt Giriş")
kod = s2.[c4]
Set varmı = s1.Range("b3:b65536").Find(kod)
If varmı Is Nothing Then
sat = s1.Cells(65536, "B").End(xlUp).Row + 1
Else
sat = s1.Range("b3:b65536").Find(kod).Row
[COLOR=red]mevcut=1[/COLOR]
End If
s1.Cells(sat, "A").Value = sat - 2
For i = 4 To 28
    s1.Cells(sat, i - 2).Value = Cells(i, "C").Value
Next i
Set s1 = Nothing
Set s2 = Nothing
[COLOR=red]if mevcut=1 then[/COLOR]
[COLOR=red]MsgBox "Değiştirildi"[/COLOR]
[COLOR=red]else
MsgBox "Desen bilgileri eklendi..!!"
end if[/COLOR]
End Sub[/LEFT]

 

[ridvan2111]

çok teşekkür ederim MESLEKİ

 

[hsayar]

mesleki hocam 6. mesajdaki kodların satır açıklamalrını rica edebilirmiyim...
daha evvel rastlamadığım kodlar var.
Saygılarımla

 

[Rıdvan01]

çalışınca oluyor

selam arkadaşlar üstteki dosya forma ilk gönderdigim dosyaydı
sonra excel form sayfalarıda dolaşarak hiç vba bilgim olmadığı halde
yeni bir dosya hazırladım ilk mesajımda yazmıştımya userform olsa daha iyi olur diye
yine kendim yaptım tabiki forma üye arkadaşların kodlarından faydalandım
bu forma katkıda bulunan herkese teşekkür ediyorum