excel satır saydırma nasıl yapılır

[bilisim2010]

merhaba excel KODLAR sayfasına 96 rakamlık kodlarım var rakamların 1. sini (4070002700) KODLAR sayfasının b2 hücresine yazdığımda bu kodun devamını SZ59E1HLKODLAR sayfasında b2 hücresinden aşağı doğru 4070002700-4070002701-4070002702 olarak 96 satır yazdırsın.


AYRICA GENE KODLAR (B3) hücresine (4080002700) yazayım bunuda SZ59E1HLKODLAR (B99. satırına) 4080002700-4080002701-4080002702 ve bu döngü devam etsin. bu ilk sorunun devamıdır farklı birşey değil hocalarım... yapmak istediğim tam olarak ilk kodlarını KODLAR kısmına yazıp takip eden kodlarını başka sayfaya yazdırmak

KODLAR B2 4070002700 SZ59E1HLKODLAR B2 4070002700
SZ59E1HLKODLAR B3 4070002701
SZ59E1HLKODLAR B4 4070002702
SZ59E1HLKODLAR B98 4070002796



KODLAR B3 4080002700 SZ59E1HLKODLAR B99 4080002700
SZ59E1HLKODLAR B100 4080002701
SZ59E1HLKODLAR B101 4080002702
SZ59E1HLKODLAR B102 4080002703
SZ59E1HLKODLAR B195 4080002796

 

[md3m1ray]

dener misiniz

 

[Biolightant]

Merhaba,
@md3m1ray dosyasını göremiyorum ama alternatif kod olsun

KODLAR sayfa ismi sağ tıklanıp - Kod Görüntüle içine yazılacak.

Option Explicit
' https://www.excel.web.tr/threads/excel-satir-saydirma-nasil-yapilir.215187/

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    Dim BSonHucre As Range
    Set BSonHucre = Sheets("SZ59E1HLKODLAR").Cells(Rows.Count, "B").End(xlUp)

    If IsEmpty(BSonHucre.Value) Then
        Set BSonHucre = Sheets("SZ59E1HLKODLAR").Range("B1")
    End If

    If Target.Column = 2 And Target.Row > 1 And IsNumeric(Target.Value) And Not IsEmpty(Target.Value) Then
        For i = 0 To 96
            BSonHucre.Offset((i + 1), 0).Value = Target.Value + i
        Next i
    End If
End Sub

 

[bilisim2010]

hocam kodu girince sayfa kilitlenip kalıyor

tamamdır hocam çalıştı sorun yok teşekkür ederim. ikinizin kodu da aynı işlemi görüyor elinize sağlık

 

[bilisim2010]

dener misiniz

elinize sağlık teşekkürler.

 

[bilisim2010]

Merhaba,
@md3m1ray dosyasını göremiyorum ama alternatif kod olsun

KODLAR sayfa ismi sağ tıklanıp - Kod Görüntüle içine yazılacak.

Option Explicit
' https://www.excel.web.tr/threads/excel-satir-saydirma-nasil-yapilir.215187/

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    Dim BSonHucre As Range
    Set BSonHucre = Sheets("SZ59E1HLKODLAR").Cells(Rows.Count, "B").End(xlUp)

    If IsEmpty(BSonHucre.Value) Then
        Set BSonHucre = Sheets("SZ59E1HLKODLAR").Range("B1")
    End If

    If Target.Column = 2 And Target.Row > 1 And IsNumeric(Target.Value) And Not IsEmpty(Target.Value) Then
        For i = 0 To 96
            BSonHucre.Offset((i + 1), 0).Value = Target.Value + i
        Next i
    End If
End Sub

hocam bu kodun devamına KODLAR sayfasında yazdığım veriyi silince ona bağlı diğer sayfadaki 96 kodu da silmem için ekleme yapabilirmisiniz. silinen satırlarında silinmesi gerekiyor yani boşluklarla birlikte silinecek.

 

[bilisim2010]

dener misiniz

hocam kodlar çalışıyor tek eksiğim KODLAR sayfasındaki B2 alıyor tamam bana c2yi ve D2 yide alması gerekiyor o lazım KODLARDAKİ B2 C2 ve D2 alsın SZ59E1HLKODLAR e taşısın yanlız dikkatinizi çekerim KODLAR C2 hücresindekiler rakam metin karışık D2 tamamen rakam.

 

[Biolightant]

ekleme yapabilirmisiniz

Malesef kurguyu tasarlayamadım yapamıyorum kolay gelsin.

 

[bilisim2010]

Malesef kurguyu tasarlayamadım yapamıyorum kolay gelsin.

hocam KODLAR sayfasındaki b2 e yazdığımı aktarıyor c2 ve d2 ye yazdıklarımı nasıl aktarırım? c2 içinde metin de kullanıyorum.

 

[md3m1ray]

C sutunu harf rakam karisik olanlar standart bir sekildemi ornegin: ABC1001 ABC1002 ACC2000 sekli gibi mi

 

[bilisim2010]

C sutunu harf rakam karisik olanlar standart bir sekildemi ornegin: ABC1001 ABC1002 ACC2000 sekli gibi mi

KOMPRESÖR GMCC-SARCOOL (SZ59E1HL) (1/8 R-600 A) (95 W - 82 K.cal)
c sütunu böyle hocam d sütunu tamamen rakam yanlız c ve d de saydırma yok ne yazıyorsa onu 96 adet çoğaltacak diğer sayfaya.

 

[md3m1ray]

ornek dosya ornek islem vs olmadan herseyi tek tek yaptirarak tek tek sorarak bu is zor oluyor hem size hem bize . yardimci olmak istiyoruz ama kendi kendime sizin istediklerinizi dusunmemiz gerekiyor. bu c2 yi alip nereye atacak b de ki gibi +1 yapip mi gidecek gibi sorulari cevaplayan ornek dosya hazirlayip atarsaniz daha kolay olur diye dusunuyorum

 

[bilisim2010]

ornek dosya ornek islem vs olmadan herseyi tek tek yaptirarak tek tek sorarak bu is zor oluyor hem size hem bize . yardimci olmak istiyoruz ama kendi kendime sizin istediklerinizi dusunmemiz gerekiyor. bu c2 yi alip nereye atacak b de ki gibi +1 yapip mi gidecek gibi sorulari cevaplayan ornek dosya hazirlayip atarsaniz daha kolay olur diye dusunuyorum

hocam c2 yi alıp b deki gibi +1 yapıp 96 satır aşağı indirecek evet c2 dekiler metin zaten sadece copy paste yapcak 96 tane yani orada arttırma falan yok d2 de öyle copy paste bu sayfaya. SZ59E1HLKODLAR
dosya boyutum biraz yüksek bakayım yükleyebilirsem göndereyim ama dosyada daha çok kafanız karışabilir ben genede göndereyim tabi sizi anlıyorum hocam

 

[md3m1ray]

dener misiniz dogru anlamismiyim

 

[bilisim2010]

dener misiniz dogru anlamismiyim

hocam kesnlikle doğru anlamışsınız ok tşk ediyorum.

 

[md3m1ray]

rica ederim