Alt satıra otomatik geçmesi.

[istanbulcahan]

Hücreye yazınca otomatik alt satıra yazı geçmesi.

Örnek dosya ektedir.

 

[Merhum İdris SERDAR]

.

A3 hücresine:

=EĞER(D2<>"";A2+1;"")


Veya;

A2 hücresine:

=EĞER(D2<>"";SATIR(A1);"")

yazıp, aşağıya doğru kopyalayın.

.

 

[İhsan Tank]

Hücreye yazınca otomatik alt satıra yazı geçmesi.

Örnek dosya ektedir.

Merhaba
Alternatif olsun
Sayfanın kod bölümüne kopyalayın ve deneyin

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D65536")) Is Nothing Then Exit Sub
Cells(Target.Row + 1, "A") = WorksheetFunction.Max(Range("A:A")) + 1
Range("A2") = 1
Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Borders _
(xlEdgeLeft).LineStyle = xlContinuous
Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Borders _
(xlEdgeTop).LineStyle = xlContinuous
Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Borders _
(xlEdgeBottom).LineStyle = xlContinuous
Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Borders _
(xlEdgeRight).LineStyle = xlContinuous
Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Borders _
(xlInsideVertical).LineStyle = xlContinuous
End Sub

 

[istanbulcahan]

.

A3 hücresine:

=EĞER(D2<>"";A2+1;"")


Veya;

A2 hücresine:

=EĞER(D2<>"";SATIR(A1);"")

yazıp, aşağıya doğru kopyalayın.

.

Birinci kod ile alt satıra geçme olayı gerçekleşti.Sağolasın.

 

[istanbulcahan]

Merhaba
Alternatif olsun
Sayfanın kod bölümüne kopyalayın ve deneyin

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D65536")) Is Nothing Then Exit Sub
Cells(Target.Row + 1, "A") = WorksheetFunction.Max(Range("A:A")) + 1
Range("A2") = 1
Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Borders _
(xlEdgeLeft).LineStyle = xlContinuous
Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Borders _
(xlEdgeTop).LineStyle = xlContinuous
Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Borders _
(xlEdgeBottom).LineStyle = xlContinuous
Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Borders _
(xlEdgeRight).LineStyle = xlContinuous
Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Borders _
(xlInsideVertical).LineStyle = xlContinuous
End Sub

Copy bölümüne kopyaladım.Bunda olmadı. Üstadım.

 

[kemal turan]

Ahmet Cahan kardeşim,
İhsan üstadın verdiği kodu copy bölümüne değil sayfanın kod penceresine yapıştıracaksın.
ben yaptım çok güzel çalışıyor.
İhsan hocam,
Excele veri giren herkesin ihtacı olacak bir çalışma ellerine sağlık.
Selametle kalın.

 

[istanbulcahan]

Ahmet Cahan kardeşim,
İhsan üstadın verdiği kodu copy bölümüne değil sayfanın kod penceresine yapıştıracaksın.
ben yaptım çok güzel çalışıyor.
İhsan hocam,
Excele veri giren herkesin ihtacı olacak bir çalışma ellerine sağlık.
Selametle kalın.

Evet ben "BuÇalışmaKitabı" bölümüne kodu kopyalamışım. Sayfa 1 e kopyalayınca oldu. Sağolasın. Sağolasın. İhsan üstadım.

 

[İhsan Tank]

Yurttaş hocam çok teşekkür ederim.

İhsan hocam,
Excele veri giren herkesin ihtacı olacak bir çalışma ellerine sağlık.
Selametle kalın.

Kolay gelsin
Bu çalışmalarda asıl emeği olanlar bana sabırla bu işi öğreten değerli hocalarımdır. Benim asıl maksadım onlara az da olsa yardım etmektir. emeklerini boşa çıkartmamakdır.

Evet ben "BuÇalışmaKitabı" bölümüne kodu kopyalamışım. Sayfa 1 e kopyalayınca oldu. Sağolasın. Sağolasın. İhsan üstadım.

Rica ederim
Kusura bakmayın ama hiç açıklamaları okumuyorsunuz. Ben sayfanın kod bölümüne kopyalayın demiştim.
:yazici: