Çözüldü çağırılan userforumda diğer userforumdaki işlem iptali

Refaz' Alıntı:

Kodları görme imkanım yok ama if şartı silip alttaki gibi ekleyin silme kıdun başına yanlışta yazabilirim mobilden.Mesaj içini ayarlayın.

If msgbox("silinsinmi")= vbno then exit sub

Genişletmek için tıkla...

istediğim tam olarak bu değil ama mantığı anladım teşekkür ederim.

Rica ederim,exit sub olayı esasen abey.

Birde aklımda kalan silme mesajı döngü içindeydi.
İf şsrtını ksldırıp verdiğim kodu ekleyebilirsiniz yada
else
exit sub
ya yapabilirsiniz.

Birde j sütununa benzersi eklemiştiniz rastgelearada ile.Onunla olmaz abey.illede formülle yapacaksanız videodakini uygulayın.
2021 ve 365 için önceden formül vermiştim sıralı diye.

Refaz' Alıntı:

Birde j sütununa benzersi eklemiştiniz rastgelearada ile.Onunla olmaz abey.illede formülle yapacaksanız videodakini uygulayın.
2021 ve 365 için önceden formül vermiştim sıralı diye.

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

Genişletmek için tıkla...

S.a hocam benim çalıştığım excel 2016 pro plus buna ne önerebilirsin referans numaralandırma için ? yada ekleme yaparken otomatik olarak benzersiz sayıve harf olarak karışık bir makro formülü mümkünmüdür ?

Bluekaya' Alıntı:

S.a hocam benim çalıştığım excel 2016 pro plus buna ne önerebilirsin referans numaralandırma için ? yada ekleme yaparken otomatik olarak benzersiz sayıve harf olarak karışık bir makro formülü mümkünmüdür ?

Genişletmek için tıkla...

Aleyküm selam.
Daha önceki konuda yazmıştım ve formülde elemiştim abey.
2021 yada 365 versiyon 32bit.
Önceki konudaki yazdıklarımı birdaha okuyun.

Benim office 2021.
Bir gif hazırladım.

Refaz' Alıntı:

Benim office 2021.
Bir gif hazırladım.


Ekli dosyayı görüntüle 16195

Genişletmek için tıkla...

hocam işte benim 2016 olduğu için sıralı komutu çıkmıyor maalesef ve gif e dikkat ettim boş olan 5. satırın yanına değil üst satırına yani b4 e rakam atadı aslında buda yanlış yeri seçmeme neden olur

Bluekaya' Alıntı:

hocam işte benim 2016 olduğu için sıralı komutu çıkmıyor maalesef ve gif e dikkat ettim boş olan 5. satırın yanına değil üst satırına yani b4 e rakam atadı aslında buda yanlış yeri seçmeme neden olur

Genişletmek için tıkla...

Bağdeğdolusaydan dolayı öyle.
Sadece bir basit formüldü ffice tavsiye dediniz ona göre açıkladım.
2016 için ise videodaki oluyor.
Dosyanız karışık olduğu için kod ile numaralandırmayı nasıl yapacağımıda şaşırdım.
Ama bir küçük örnek dosya eklerim kendinize uyarlarsınız.

Arşivimdekilerin hepsini ekledim sıra no verme.
Kodları inceleyip deneyin.

Refaz' Alıntı:

Arşivimdekilerin hepsini ekledim sıra no verme.
Kodları inceleyip deneyin.

Genişletmek için tıkla...

Hocam bu makro tam benlik lakin bunu 1 den başlatmak yerine harf sayı karışık bir algoritma ile tekrar etmeyecek şekilde ayarlayabilirmiyiz ?
son sayı olayı çok iyi b stünuna yazı geldikçe a stünuna sayı ekliyor ama daha uzun ve karmaşık sayı ve harf 10 haneli olanı yok mu ?




Private Sub CommandButton1_Click()
Dim son As Long
Const baslangicSatir As Byte = 2

With ThisWorkbook.Sheets("Sayfa1")
.Range("A" & baslangicSatir & ":A" & Rows.Count).ClearContents
son = .Cells(Rows.Count, 2).End(3).Row
If son < baslangicSatir Then GoTo son
.Range("A" & baslangicSatir) = 1
If son = baslangicSatir Then
.Range("A" & baslangicSatir).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=1, Trend:=False
ElseIf son > baslangicSatir Then
.Range("A" & baslangicSatir).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=son - 1, Trend:=False
End If
End With
Exit Sub
son:
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then CommandButton1_Click
End Sub

Bluekaya' Alıntı:

bunu 1 den başlatmak yerine harf sayı karışık bir algoritma ile tekrar etmeyecek şekilde ayarlayabilirmiyiz ?

Genişletmek için tıkla...

Bilmiyorum abey aslında vardır ama ben tükendim artık

Refaz' Alıntı:

Bilmiyorum abey aslında vardır ama ben tükendim artık

Genişletmek için tıkla...

Tamamdır hocam kusura bakma yordum seni hakkını helal et .çok yardımın dokundu bana konuyu kapatabilirsin teşekkür ederim herşey için. verdiğin örnek benim için yeterli

Rica ederim abey.
Yardım lazım olursa bakarız,ben verdiğim dosyadaki evaluate olanı kullanıyorum tabii son değişkeni kod ile alıyorum abey.
Birde 2021 yada 365 için daha kolay ve basit var sıralı nınkod ile yapılanı sequence idi galiba heralde yakında herkes onu kullanır yeni versiyona terfi edenler zaten ekimden itibaren eski versiyonlara destek verilmeyecekmiş.

Alttaki güzelim kodda a sütununa sıra no verir b sütunundaki son satıra kadar dediğim versiyonlar için.

HTML: