SIRALI LİSTEDEDE ARAYA KAYIT YAPTIRMA

[ramazanuçar]

Herkese merhaba;

1 den 100 e kadar sıra numarası olan bir listede diyelimki 10.satıra kayıt yapmak istiyorum. yapmak istediğim şu: ben 10.satıra yeni kayıt yaptığımda arkasından gelen sıralar 1 kaysın. yani 10 olan 11 11 olan 12 olarak otomatik değişsin. vba da bunun için nasıl bir kod yazmam gerekir?

 

[muratboz06]

Diyelim ki listesiniz A sütununda;
A1 hücresine 1 yazınız, A2 hücresine = A1+1 yazınız formülü listenin sonuna kadar kopyalayınız. Araya bir satır eklediğinzde de yeni eklenen satırın A sütununa bir üst satırdaki a sütunundaki formülü kopyalarsan olacaktır.

 

[ramazanuçar]

Merhaba;
Aşağıdaki kodları kullanarak listeme satır ekliyorum.textbox ve combobox a girdiğim verilerin eklediğim satıra kaydolmasını istiyorum ama sayfanın sonuna kaydoluyor. yardımcı olursanız çok memnun olurum.Şimdiden teşekkürler.

Private Sub CmB_yenikartkaydet_Click()

Sheets("STOKLİSTESİ").Select

Rows(TxB_sıranumarası + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
sat = Cells(65536, "b").End(3).Row + 1
ActiveCell.End(xlDown).Offset(1, 0).Select
Sheets("STOKlistesi").Range("b" & sat).Value = UCase(TxB_sıranumarası.Value)
Sheets("STOKlistesi").Range("a" & sat).Value = UCase(CmBx_grupadı.Value)
Sheets("STOKlistesi").Range("c" & sat).Value = UCase(TxB_stokadı.Value)
End Sub

 

[ramazanuçar]

Yardımcı olursanız çok sevineceğim arkadaşlar. Kusura bakmayın belki basit bir konudur ama malesef çözebilecek kadar bilgim yok.

 

[Korhan Ayhan]

Şu satırı;

sat = Cells(65536, "b").End(3).Row + 1

Aşağıdaki gibi değişitiriniz.

sat = ActiveCell.Row

 

[ramazanuçar]

Hocam çok teşekkür ederim.