VBA Mod101

[clodj]

İyi günler,
Kullandığım makroda aşağıdaki gibi bir bölüm var.

S2.Cells(Son_Satır, 4)

hücre değerini 100'e kadar getirsin.

100 değerini devamı 101'i , 1 diye devam etsin yani MOD101 olarak yazmak istiyorum.
teşekkürler

 

[Necdet]

Merhaba,

Kodlarla değil, ne yapmak istediğinizi örnek dosyada açıklarsanız daha hızlı çözüme ulaşırsınız.

Sorunuz hiç anlaşılmıyor.

 

[clodj]

tekrar merhaba,
Veri Saydasındaki yapiştır butonu değer2 ve değer3 ün karşılıklarını sonuc sayfasına atmaktadır.

İstediğim
Sonuc sayfasındaki
A VE B Sütunları değişmeyecek,
C sütununudaki rakamların mod101 de yazılması,
Mod101 olarak yazılmasını istediğim kod "S2.Cells(Son_Satır, 2)"
yani C4 de "C - 101" yerine "C - 1"
C5 de "D - 102" yerine "D - 2"

Yapıştır butonunu kodu aşağıdadır.

Sub Renk_Baskı_Butonu()
Dim Son_Satır As Long, S1 As Worksheet, S2 As Worksheet

Set S1 = Sheets("veri")
Set S2 = Sheets("sonuc")
If S2.AutoFilterMode = True Then S2.ShowAllData
Son_Satır = S2.[A65536].End(3).Row + 1

S2.Cells(Son_Satır, 1) = S1.Range("B4").Value
S2.Cells(Son_Satır, 2) = S1.Range("B5").Value

If S1.Range("A1") = "DEGER1" Then
S2.Cells(Son_Satır, 3) = S2.Cells(Son_Satır, 1) & " - " & S2.Cells(Son_Satır, 2)

End If



S2.Cells.EntireColumn.AutoFit


Set S1 = Nothing
Set S2 = Nothing



End Sub

 

[Necdet]

tekrar merhaba,
Veri Saydasındaki yapiştır butonu değer2 ve değer3 ün karşılıklarını sonuc sayfasına atmaktadır.

İstediğim
Sonuc sayfasındaki
A VE B Sütunları değişmeyecek,
C sütununudaki rakamların mod101 de yazılması,
Mod101 olarak yazılmasını istediğim kod "S2.Cells(Son_Satır, 2)"
yani C4 de "C - 101" yerine "C - 1"
C5 de "D - 102" yerine "D - 2"

Yapıştır butonunu kodu aşağıdadır.

Değer 100 ise sonuç Sıfır çıkar biliyorsunuz değil mi?

Sub Birlestir()
 
    Dim i   As Long, _
        j   As Integer, _
        ss  As Worksheet
    
    Set ss = Sheets("sonuc")
    
    ss.Select
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        j = Cells(i, "B") Mod 100
        Cells(i, "C") = Cells(i, "A") & " - " & j
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamamlandı..."

End Sub