DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Activate()
Dim b As String
Dim i As Integer
s1 = Sayfa1.Range("f6").Value
a = Mid(Right(s1, 4), 1, Len(Right(s1, 4)))
Sayfa2.Range("f6").Value = Mid(Left(s1, 4), 1, Len(Left(s1, 4))) & "/ 000" & a + 1
Debug.Print s1
Debug.Print a
End Sub
Sayfa2.Range("f6").Value = Mid(Left(s1, 4), 1, Len(Left(s1, 4))) & "/ 000" & a + 1
Sayfa3.Range("f6").Value = Mid(Left(s1, 4), 1, Len(Left(s1, 4))) & "/ 000" & a + 1
Ben Sn. Sesi'nin sayfalarının hazır olmadığını ve yeni sayfa oluşturduğu zaman bu makronun çalışmasını istediğini düşünmüştüm.abdi' Alıntı:Sayın karamurselli,
arkadaş ilgili sayfa sekmesine tıkladığında
ilgili sayfanın değeri yeniden hesaplanacaktır
ben böyle bir çözüm önerdim değişik varyasyonlar olasılık dahilinde olup benim bilgim dahilinde değildir.
kısacası herkes yoğurdu farklı yer
(yani ben bildiğim metodu uyguladım sonuca gittim anlamında)
Private Sub Worksheet_Activate()
Dim a As String
Dim b As String
Dim i As Integer
s1 = ActiveSheet.Previous.Range("f6").Value
a = Format(Mid(Right(s1, 4), 1, Len(Right(s1, 4))), "0000")
')
ActiveSheet.Range("f6").Value = Mid(Left(s1, 4), 1, Len(Left(s1, 4))) & "/ 000" & a + 1
Debug.Print s1
Debug.Print a
End Sub