kayıt altına alma...

[azure]

arkadaşlar sorunumu excel dosyasında anlatmaya çalıştım. umarım yardımcı olursunuz.

 

[İhsan Tank]

dosyamda düşeyara formülü var demişsin ben göremedim.
revizyon no karşılığını nereden bulacağız dosyaı buna göre güncelleyin
yardımcı olmaya çalışalım

 

[azure]

istediğiniz hale getirdim.

 

[İhsan Tank]

istediğiniz hale getirdim.

merhaba
boş bir module kopyalarak deneyiniz

Option Explicit
Sub kaydet()
Dim ts, kaplan, sayfa5
kaplan = MsgBox("Kaydediyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
sayfa5 = Sheets("Sayfa5").Range("A65536").End(xlUp).Row
ts = sayfa5 + 1
Sheets("Sayfa5").Range("A" & ts).Value = Sheets("10500").Range("C60").Text
Sheets("Sayfa5").Range("B" & ts).Value = Sheets("10500").Range("D60").Text
Sheets("Sayfa5").Range("H" & ts).Value = Sheets("10500").Range("J60").Text
MsgBox "Kaydettim", vbInformation, "Bitiş"
End Sub