Ardısık sayı yazma

[burakabus]

Merhaba
herhangi bir hücrede birden fazla ardışık sayı yazmam gerekiyor örneğin 253523 yazdığımda 253524 253525 i otomatik olarak yazmak istiyorum bu konuda yardımcı olabilir misiniz ? Teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Biraz daha ayrıntı verir misiniz.

• Hangi hücre aralığında çalışacak.

• Sayıların ne kadar devam edeceği sabit mi ?

• Aynı hücreye mi yazdıracak, yan hücrelere doğru devam edecek.

. . .

 

[burakabus]

herhangi bir sütunda seçtiğim bir hücre içerisinde yazacak mümkün müdür acaba ? daha detaylı bir örnek verirsem daha iyi olucak sanırım örneğin K10 hücresinde X sayısını yazdığımda herhangi bir kısayol tuşuna bastıkça X+1, (X+1) + 1 yazmak istiyorum

 

[Emir Hüseyin Çoban]

. . .

Seçili hücredeki değere +1 yapar.

Sub kod()
Selection.Value = Selection.Value + 1
End Sub

. . .

 

[burakabus]

ilginize ve yardımlarınıza çok teşekkür ederim ama bu tam olarak istediğim şey değil ben hücreye x yazdığımda makronun x sabit kalmak koşuluyla x' in yanına boşluk bırakıp x+1 i otomatik yazmasını istiyorum

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    On Error Resume Next
    say = 0
    For i = 1 To Len(Selection.Text)
        If Mid(Selection.Text, i, 1) = " " Then
            say = say + 1
        End If
    Next i
    rakam = Split(Selection.Text, " ")(say)
    
    Selection.Value = Selection.Value & " " & rakam + 1
    
End Sub

İşlem Sonucu:

. . .

 

[burakabus]

teşekkür ederim elinize sağlık

 

[burakabus]

hüseyin bey çok şey istiyorum ama bir örnek vererek anlatacağım yine. K3 hücresinde 1550 yazıyor ben K4 E 1550 + 1400 yapmak istiyorum bunu da makro olarak yazarsanız çok müteşekkir olurum ama sadece K3 K4 olarak sınırlı olmasın. Temelde bir hücredeki değerin hemen bir altındaki hücreye toplam değeri yazmak istiyorum biraz karışık anlattım galiba

 

[Emir Hüseyin Çoban]

hüseyin bey çok şey istiyorum ama bir örnek vererek anlatacağım yine. K3 hücresinde 1550 yazıyor ben K4 E 1550 + 1400 yapmak istiyorum bunu da makro olarak yazarsanız çok müteşekkir olurum ama sadece K3 K4 olarak sınırlı olmasın. Temelde bir hücredeki değerin hemen bir altındaki hücreye toplam değeri yazmak istiyorum biraz karışık anlattım galiba

. . .

+1400 değeri sabit mi ?

. . .

 

[1903kartal]

Merhaba benim de üsttekinde benzer bir sorunum var. Bir sütunun (B sütunu)seçili bir bölümüne 0 dan başlayarak son seçim hücresine kadar 1 artan değeri otomatik yazdırmak istiyorum. 0,1,2,3,4 5 gibi Bu yazdığım makroya göre değişiyor. Makronun baştaki kısmı aşağıdadır. 0 !ı yazdırıyorum fakat devamı gelmiyor. Yardımlarınız için şimdiden teşekkür ederim.

Sub secim()

Dim s As Integer
i = Cells(65536, "A").End(3).Row
For s = 7 To i

Sheets("dk_l_1_3").Select
Cells(s, 1).Select
Selection.Copy
Sheets("Sayfa1").Select
n = Cells(65536, "C").End(3).Row + 1
Cells(n, 1).Select
ActiveSheet.Paste

Sheets("dk_l_1_3").Select
Cells(s, 4).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Sayfa1").Select

n = Cells(65536, "C").End(3).Row + 1
Cells(n, 4).Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

k = Sheets("Sayfa1").Cells(Rows.Count, "C").End(3).Row
Cells(n, 1).Copy
Range(Cells(n, 1), Cells(k, 1)).Select
ActiveSheet.Paste

Cells(n,2)= "0"

Next s

End Sub

 

[Erdemöz]

Merhaba
herhangi bir hücrede birden fazla ardışık sayı yazmam gerekiyor örneğin 253523 yazdığımda 253524 253525 i otomatik olarak yazmak istiyorum bu konuda yardımcı olabilir misiniz ? Teşekkürler

. . .

Sub KOD()
    On Error Resume Next
    say = 0
    For i = 1 To Len(Selection.Text)
        If Mid(Selection.Text, i, 1) = " " Then
            say = say + 1
        End If
    Next i
    rakam = Split(Selection.Text, " ")(say)
   
    Selection.Value = Selection.Value & " " & rakam + 1
   
End Sub

İşlem Sonucu:

. . .

Yaptım çalışmıyorum

 

[Erdemöz]

Yaptım çalışmıyorum

Fatura seti no yu otomatik getirmek istiyorum.yarfim lutfen