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

[Bluekaya]

Merhabalar umarım doğru bir başlık yazabilmişimdir.
yapmak istediğim işlem şu... Userform1 deki listview1 de çift tık ile bir veriyi siliyorum silmeden önce başkabir "AÇIKLAMA" adındaki userforum u çağırıp silme gereğinin açıklamasını kaydediyorum buraya kadar herşey normal... Lakin vazgeç butonuna bastığımda silme işleminide iptal etmeli neticede yanlışlıkla çift tıklanabilir yada vazgeçilebilir o yüzden silme işleminide iptal etmek istiyorum bunu nasıl yapabilirim ?

 

[Refaz]

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

 

[Bluekaya]

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

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

 

[Refaz]

Rica ederim,exit sub olayı esasen abey.

 

[Refaz]

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.

 

[Refaz]

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.

 

[Bluekaya]

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.

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 ?

 

[Refaz]

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 ?

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.

 

[Refaz]

Çözüldü - Listviewde benzersiz referans ı bulup silme

Merhabalar tekrardan listview1 de süzdürme yapıp silmeye çalıştığımda çok farklı bir satırı siliyor (Bu arada doubleclick ile yapıyorum seçileni sili dikkate almayın.) satisdetay sayfasında "J" kolonuna rastgelearada ile benzersiz referans sayıları ekledim lakin denediğim hiçbir kod silmedi hep...

excelcozum.com

 

[Refaz]

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

 

[Bluekaya]

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


Ekli dosyayı görüntüle 16195

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

 

[Refaz]

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

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.

 

[Refaz]

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

 

[Bluekaya]

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

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

 

[Refaz]

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

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

 

[Bluekaya]

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

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

 

[Refaz]

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ş.

 

[Refaz]

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

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.