Veri girilince bir alt satıra kayıt

[argo619]

değerli üstadlarım ekli dosyamda da anlatmaya çalıştığım gibi belirli bir hücreye veri girilince veri girilen satır ile bir üst satır arasına satır ekleyebilir miyiz
yani birinci satır zorunlu fakat ikinci satır ödenecek kalem sayısına göre artabilir. bu nedenle damga vergisi ve ödenecek mıktar bölümü harcama kalemlerinin altında olması gerekmektedir.
olabilirliliğini bilemiyorum ama böyle bir çalışmaya ihtiyacım var
ödenek kalemi tek olunca sorun yok ama eğer iki kalem ise ozaman damga vergisi bölümünü bir alt satıra kaydırmak gerekmektedir.

 

[Necdet]

Veri girildikce araya satır açma

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target.Value = "" Then Exit Sub
Range("F" & Target.Row & ":G" & Target.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Son:
End Sub

 

[argo619]

Üstadım öncelikle ilginize teşekkürler
CopyOrigin:diye hata açılıyo kod sayfasında

 

[Necdet]

Merhaba,

İlk mesajımdaki kodları değiştirdiğim gibi dosya da ekledim, inceler misiniz?

 

[argo619]

Öncelikle cuma oluşu nedeni ile geç cevap verdiğimden özürlerimi arz ederim üstadım.
Necdet hocam verdiğiniz dosya açılmıyor ayrıca yukarıdaki kod yine aynı hatayı veriyor
saygılarımla

 

[Necdet]

Merhaba,

İlk mesajımdaki dosyayı excel dosyası olarak ekledim.

 

[argo619]

Üstadım yordum sizleri ama yine hata veriyor
bu kez hata :xlFormatFromLeftOrAbove şeklinde
teşekkürler

 

[argo619]

TŞK

Değerli üstadım verdiğiniz kod çalıştı çok teşekkürler ama benim konuyu tam anlatamamam sizleri yordu sizlere müteşekkirim
yalnız çalışma sayfama uyarlayınca sizlere konuyu eksik anlattığımı anladım
ekli dosyamda da görüleceği gibi taplo bozuluyor. çünkü taplonun yarısını kaydırıyor, oysa komple satır kaydırmalı
saygılarımla

 

[Ömer]

Sayın argo619,

Soruyu anladığımı sanmıyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [J:J]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target.Value = "" Then Exit Sub
Range("A" & Target.Row & ":W" & Target.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Son:
End Sub

Bu şekilde deneyin. İstediğiniz bu değilse daha sade bir tabloda detaya inerek açıklayınız..

.

 

[argo619]

ömer hocam sorumu benden de daha iyianladınız
teşekkürler oldu efendim yalnız sıtırı ekliyor ama bu kez geri alma olmuyor varmı bir imkanı mesela j sütününe değer girilince satır açıyor silince de satırı silebilirmiyiz yani eski haline gelebilir mi
saygılar

 

[Necdet]

Merhaba,

Kodları deneyiniz.

Yine kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [J:J]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target.Value = "" Then
    Rows(Target.Row - 1).Delete
Else
    Range("A" & Target.Row & ":W" & Target.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Son:
End Sub

 

[argo619]

Necdet hocam ilginize teşekkürler çalıştı sağolun yalnız girilen değeri silince eski haline gelebilir mi
saygılarımla

 

[Necdet]

Necdet hocam ilginize teşekkürler çalıştı sağolun yalnız girilen değeri silince eski haline gelebilir mi
saygılarımla

bu sorunuza yanıt verdiğimi sanıyordum.

 

[argo619]

hocam çok özür dilerim
haklısınız allah razı olsun
sizlere müteşekkirim