yeni veri girişi

[yavuzkaraslan]

herkese merhaba,

ekde yer alan dosyada kampanya tipi ve cihaz modeli seçildiğinde
B14 satırında tarih ve seri no yazmayan ancak diğer bilgilerin yazılı olduğu
satır oluşmasını sağlayabilirmiyiz.

şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
sat = Cells(Rows.Count, "A").End(xlUp).Row
If Intersect(Target, Range("A2:A" & sat & ",C2:C" & sat)) Is Nothing Then Exit Sub
Cells(Target.Row, "B").Copy Cells(sat + 1, "B")
Range("D" & Target.Row & ":I" & Target.Row).Copy Range("D" & sat + 1)
Range("A" & Target.Row & ":C" & Target.Row).Copy
Range("A" & sat + 1 & ":C" & sat + 1).PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False
Range("A" & sat + 1).Select
End Sub

 

[yavuzkaraslan]

teşekkür ederim elinize sağlık ama istediğim bu şekilde değil.
filter uygulayıp; A , D , ve E sütunlarının üçünde aynı anda seçim yaptığımda
seçim yaptığım verilerin olduğu satırdaki B ve C hücresi boş diğer hücrelerdeki değerlerin
olduğu gibi gelmesini istiyorum.

 

[yavuzkaraslan]

teşekkür ederim elinize sağlık ama istediğim bu şekilde değil.
filter uygulayıp; A , D , ve E sütunlarının üçünde aynı anda seçim yaptığımda
seçim yaptığım verilerin olduğu satırdaki B ve C hücresi boş diğer hücrelerdeki değerlerin
olduğu gibi gelmesini istiyorum.