SATIR kOPYALAMA

[alfaoz]

merhaba arkadaşlar benim isteğim alt satıra geçildiği zaman üst satırdaki bilgilerin alt satıra kopyalanması ve her alt satıra geçildiğinde bu işlemin otomatik tekrarlanması

 

[asi_kral]

Merhaba
Satırlarda formül mü var_?
Dosyanız olmadığı için sadece yorum yapabiliyorum.

 

[alfaoz]

Hayır formül yok metraj girmek için kullanıcam üst satırda herhangi bir hücreye girdiğim bilgilerin alt satıra geçtiğimde tekrarlanmasını istiyorum. dosya ekledim umarım faydası olur

 

[asi_kral]

Hayır formül yok metraj girmek için kullanıcam üst satırda herhangi bir hücreye girdiğim bilgilerin alt satıra geçtiğimde tekrarlanmasını istiyorum. dosya ekledim umarım faydası olur

Hangi bilgiler hangi şarta göre alt satırda gözükecek.

 

[alfaoz]

Herhangi bir şart yok. Gönderdiğim dosyayı üst bilgileri (açıklama, adet vs) hariç boş kabul edin. Ben b satırını yazıp c satırına geçtiğimde b satırında hangi hücrede ne veri varsa bir alt hücrede de o görünsün istiyorum. Mesela b satırında girdiğim "b10,2,25,12" değerleri aynen bir alt satıra da geçsin değişmesi gereken var ise onu ben elle değiştiririm.

 

[alfaoz]

acaba bu istediğim yapılması çok mu zor bi şey??

 

[asi_kral]

Merhaba
Ya anlatamıyorsunuz yada ben anlamıyorum.
Şimdi şöyle söyliyeyim.
A6 ya veri yazdınız A7'de ne olacak
B6'ya veri yazdınız B7'de ne olacak
D6'ya veri yazdınız D7'de ne olacak
gibi.

 

[alfaoz]

mrb;

aslında tam istediğim şu. önce bilmeniz gerekenleri söyleyim. size gönderdiğim sayfa korumalı . A-E sütunları arasında işlem yapılıyor. enter tuşunun özelliğini değiştirdim numerik tuş takımındaki entera bastığım zaman aşağı değil yan hücreye geçiyor. şimdi istediğim şudur demişsiniz ya a6 ya veri yazdığınızda a7 de ne olucak die. a6 ya ne yazdıysam alt satıra indiğimde aynısı a7 de olucak bunu istiyorum. yani bi satıra A-E sütunları arasında veri girdim ve alt satıra indiğimde veri girdiğim son satırdaki bilgileri alt satıra kopyalasın istiyorum.

 

[alfaoz]

aslında yazdıklarım açık gibi ama sanırım konuyu bildiğim için anlaşılır geliyor bana. umarım bu sefer anlatabilmişimdir.

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.
A sütunundaki ilk boş hücreyi seçtiğinizde istediğiniz işlemi yapmaktadır.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim STR As Long
STR = Range("A" & Rows.Count).End(xlUp).Row
Application.EnableEvents = False
If Intersect(Target, Range("A" & STR + 1 &":E" &STR+1)) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Cells(Target.Row, "A") = Cells(STR, "A")
Cells(Target.Row, "B") = Cells(STR, "B")
Cells(Target.Row, "C") = Cells(STR, "C")
Cells(Target.Row, "D") = Cells(STR, "D")
Cells(Target.Row, "E") = Cells(STR, "E")
Application.EnableEvents = True
End Sub

 

[alfaoz]

süper. işte istediğim tam da buydu hatta istediğimden bi tık fazlası. teşekkür ederim sn asi_kral_1967

 

[alfaoz]

peki herhangi bi zorluğu yoksa eğer alt satırda a sütunundaki ilk boş hücre değilde o satırda herhangi bir hücreye gittiğimde de bunun aynısını yapabilir miyiz?

 

[asi_kral]

peki herhangi bi zorluğu yoksa eğer alt satırda a sütunundaki ilk boş hücre değilde o satırda herhangi bir hücreye gittiğimde de bunun aynısını yapabilir miyiz?

Üstetki kodu güncelledim.
İlk boş satır da A ve E sütununda hangisine giderseniz aynı işlemi yapacaktır.

 

[alfaoz]

teşekkür ederim tam istediğim gibi elinize sağlık...

 

[asi_kral]

teşekkür ederim tam istediğim gibi elinize sağlık...

Kolay Gelsin.