otomatik kayıt yapmak ve satırı boşaltmak

[HD1975]

Merhaba

sayfa 1 de verilerim var sayfa 2 de bu verilerden birini yazıp diğer verileri
otomatik getiren bir formülüm var.
Sayfa sorgulama verisi girildiğinde gelen bilgilerin altına bir not yazmam
gerekiyor ve bu notunda sayfa1 de gerekli verinin karşısına gidip kendisini
yazması ve sayfayıda kaydetmesi gerekiyor.

Ayrıca her veri değişiminde not yazılan bölümünde sıfırlanması gerek

Örnek dosya gönderdi

saygılar

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[HD1975]

Teşekkür ederim.

Dosya işimi gördü
teşekkür ediyor saygılarımı sunuyorum

H.D.

 

[dEdE]

Rica ederim.
Güle güle kullanın.

 

[HD1975]

Merhaba
dosya işimi gördü ama bir eksiklik daha çıktı meydana.
not bölümüne yazdığım notu kaydettikten sonra programı açtıp kapadım ve aynı veriyi ekrana
yazıp çağırdım şimdi not bölümüne tekrar not yazacağım ama eski not varmı yokmu varsa
gidip onun üzerine kaydedecek.Burada eski not varsa hücrenin bir yanındaki hücreye veriyi aktarması gerekiyor.

Saygılar

 

[dEdE]

Merhaba,
Modüldeki kodu aşağıdaki ile değiştirin.

Sub Aktar()
Dim satır As Integer
Application.ScreenUpdating = False
    metin = [B10] & [B11] & [B12] & [B13] & [B14]
    Sheets("Sayfa3").Select
    Range("A2:A" & [A65536].End(3).Row).Find(Sheets("Sayfa2").Cells(3, 2).Value, , , xlWhole).Activate
sk = WorksheetFunction.CountA(Range("a" & ActiveCell.Row & ":IV" & ActiveCell.Row)) + 1
    Cells(ActiveCell.Row, sk) = metin
    Sheets("Sayfa2").Select
    Range("B10:B14") = ""
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub

 

[MizahPortal]

HD1975 Excel Dosyanız

Merhaba,
DOSYANIZI BİRAZ DAHA DÜZELTTİM İSTERSENİZ BİR BAKIN

Dosyanız ilişiktedir.

 

[HD1975]

Mantık olarak oldu ama dalgınlıkla yeni not yazma ihtimali olduğu için hata oluşturma ihtimali var.
Bunun yerine yazılan notu gösterse veya yeni notu bir sonraki hücreye yazsa daha mantıklı olacak bizim için.

Saygılar

 

[HD1975]

Farklı hücre isimlerine göre makroyu düzenleyemedik

Göndermiş olduğunuz makroyu ekte gönderdiğim dosyaya ayarlayabilrimisiniz.
Biz ne kadar denedikse tuşu aktif edemedik.

Bir hata yaptık ama anlayamadık.

Saygılar

 

[HD1975]

dosyayı aşağıdaki tabloya uyarlayabilrimsiniz ?

Merhaba,
DOSYANIZI BİRAZ DAHA DÜZELTTİM İSTERSENİZ BİR BAKIN

Dosyanız ilişiktedir.

biz çok uğraştık ama makroda bir yerde hata yapıyoruz gönderdiğim
sayfaya uyarlayamadık
yardımcı olursanız memnun olacağız.
dosyayı foruma ekledim

Saygılar