Sınırlı Alanda Yıldız(*)+Enter la Ust Satırı Kopyalam

[neo]

:hey: İyi Geceler

Yıldız (*) Enter Tuşuyla Dolu olan Üst Satırı Alt satıra Kopyalama

İşlem sayfasındaki A22 Hücresi Dolu A23 e Yıldız ( * ) Enter Yaptığımda Üst Satırı A23 Yazmasını İstiyorum Bunu A4:A1500 e Kadar Kullanabilmeliyim Yıldız enter Yaptığım Her Hücre İşlediği Alan A ile G arasıdır Ã?rnek dosya Daha açıklayıcı olacaktır

Saygı Ve Sevgilerimle

 

[Levent Menteşoğlu]

İşlem sayfasının kod sayfasına aşağıdaki kodu yazarak deneyin.

[vb:1:699217be98]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Offset(-1, 0) = 0 Then Exit Sub
If Intersect(Target, [a23:a1500]) Is Nothing Then Exit Sub
If Target = "*" Then
sat = Target.Row - 1
adr = "a" & sat & ":e" & sat
Range(adr).Copy
Target.PasteSpecial
Application.CutCopyMode = False
End If
End Sub
[/vb:1:699217be98]

 

[Necdet]

Tekrarlamakta yarar var

http://www.excel.web.tr/viewtopic.php?t=7345&highlight=

 

[neo]

:hey: İyi Geceler

Sayın leventm ,Her hücre İçin Bağımsız olarak yapmak Mümkünmüdür Acaba şünki bu işlem mi kolaylaştırmak içindi ve sorumu tam ifade edemedim ben örneğin A23 e *+enter yapıca A22 yi( yani bir üst hücreyi ) B23 e * enter yapınca B22 yi ,C23 e *+enter yapınca C22 yi ,E23 e *+enter yapıca E22 yi ; *+enter yaptığım hücreye ust hücreyi Kopyalasın

Saygı Ve Sevgilerimle

 

[mehmett]

Sn neo

Sizin dediğinizi yapan bir tuş kombinasyonu var zaten. Excel dersanemizin Excel Püfleri başlığında bu tür püf noktalarını görebilirsiniz.

Yukarıdaki isteğinizi yapacak olan tuş kombinasyonu şöyle;

ctrl + < + "

 

[Tarkan VURAL]

Hedef hücrede Ctrl + D ile üst satırı bir alt satıra aynen kopyalayabiliyorsunuz. Bilginize.

 

[Levent Menteşoğlu]

Sn Tarkan Vural'a control+d hatırlatması için teşekkür ederim. Bu özelliği kullanarak kodu epeyce kısaltmak mümkün oldu. Aşağıdaki gibi deneyin.

[vb:1:2c1582044d]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Offset(-1, 0) = 0 Then Exit Sub
If Intersect(Target, [a23:e1500]) Is Nothing Then Exit Sub
If Target = "*" Then Target.FillDown
End Sub[/vb:1:2c1582044d]

 

[mehmett]

Evet Ctrl+D çok daha kullanışlı.

 

[neo]

:hey: Merhaba

Sevgili dostlarım Hepinize ayrı ayrı şükranlarımı sunarım bu bilgiler çok güzeldi

Not : Sayın Leventm sizden çok istifade ettim siz bu konuda gelişememe çok büyük katılarda bulundunuz. Size Çok Teşekkur ederim Hızır gibi bütün cevapları biliyorsunuz Allah Sizden ve sizi Yetiştiren Ailenizden Razı olsun ve Cennetine Alsın. Kelimelerim duygularımın yanında kifayetsiz kalıyor Çok teşekurederim bu siteyi kuranlara emeği geçenlere Saygı Ve Sevgilerimi sunarım .......

 

[Levent Menteşoğlu]

Rica ederim Sn neo.

Allah hepimizden razı olsun, bizde siz değerli üyelerimize teşekkür ederiz.