+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayfaya İsim Vermek (/konu-sayfaya-isim-vermek.html)
RE: Sayfaya İsim Vermek - feraz - 01/05/2020
Böyle bir deneyiniz olmazsa sizin yaptığınız gibi inputbox ilede yapabiliriz.
Private Sub CommandButton15_Click()
Dim arr
Dim i As Long
Dim say As Long
ActiveSheet.Unprotect "123"
With Me.ListBox1
If .ListCount = 0 Then Exit Sub
ReDim arr(1 To .ListCount, 1 To 1)
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
say = say + 1
arr(say, 1) = .List(i, 0)
End If
Next
If say > 0 Then
For i = UBound(arr) To LBound(arr) Step -1
If arr(i, 1) <> "" Then Range("A:A").Find(Arr(i, 1), , xlValues, 1).EntireRow.Delete
Next
End If
Application.ScreenUpdating = True
MsgBox "!!!.SEÇTÝÐÝNÝZ VERÝLER SÝLÝNMÝÞTÝR.!!!"
ActiveSheet.Protect "123"
Range("A65535").End(xlUp).Offset(1, 0).Select
TextBox1.SetFocus
ThisWorkbook.Save
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
TextBox1.Text = [L7]
TextBox28.Text = [M1]
UserForm_Initialize
.ListIndex = ListBox1.ListCount - 1 'ListBoxýn son satýrýna gider.'
End With
Range("A65535").End(xlUp).Offset(1, 0).Select 'Son boþ satýra gider
On Error Resume Next
Erase arr
End SubRE: Sayfaya İsim Vermek - m_demir - 01/05/2020
Hocam Eklediğiniz kod ile ListBox da çoklu seçime izin vermiyor. Sadece bir satırı seçebiliyoruz.
RE: Sayfaya İsim Vermek - feraz - 01/05/2020
Listbox ayarlarından değiştirin resimdeki yeri.Ayrıca önceki koda ekleme yapıp güncelledim.
Buda inputbox ile şifreli için.Verinizin büyüklüğünü bilemediğim için bu şekide yaptım.
Normalde dizi yöntemsizde olurdu.
Private Sub CommandButton15_Click()
Dim Arr
Dim i As Long
Dim say As Long
If TextBox1.Text = "" Then
MsgBox " LÜTFEN SÝLÝNECEK VERÝNÝN BUL ÝLE SIRA NUMARASINI GÝRÝNÝZ!!!"
Exit Sub
End If
sifre = InputBox("!!!...SÝLMEK ÝSTEDÝÐÝNÝZ SATIRI ÇÝFT TIKLAYARAK YUKARIDAKÝ GÝRÝÞ KUTUCUKLARINA GELMESÝNÝ SAÐLAYIN. YUKARIDAKÝ KUTUCUKLAR BOÞ OLDUÐU ZAMAN SEÇTÝÐÝNÝZ VERÝLER SÝLÝNMÝÞTÝR UYARISINI ALSANIZ BÝLE VERÝLERÝ SÝLMEZ...!!! !!!...YUKARIDAKÝ GÝRÝÞ KUTUCUKLARI DOLU ÝSE ÞÝFREYÝ GÝRÝNÝZ...!!!")
ActiveSheet.Protect "123"
If sifre <> "111" Then MsgBox "YANLIÞ ÞÝFRE GÝRDÝNÝZ ! LÜTFEN KONTROL EDÝN.": Exit Sub
ActiveSheet.Unprotect "123"
If sifre = "" Then Exit Sub
Application.ScreenUpdating = False
With Me.ListBox1
If .ListCount = 0 Then Exit Sub
ReDim Arr(1 To .ListCount, 1 To 1)
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
say = say + 1
Arr(say, 1) = .List(i, 0)
End If
Next
If say > 0 Then
For i = UBound(Arr) To LBound(Arr) Step -1
If Arr(i, 1) <> "" Then
If Range("A:A").Find(Arr(i, 1), , xlValues, 1).Row > 6 Then Range("A:A").Find(Arr(i, 1), , xlValues, 1).EntireRow.Delete
End If
Next
End If
Application.ScreenUpdating = True
MsgBox "!!!.SEÇTY?YNYZ VERYLER SYLYNMY?TYR.!!!"
ActiveSheet.Protect "123"
Range("A65535").End(xlUp).Offset(1, 0).Select
TextBox1.SetFocus
ThisWorkbook.Save
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
TextBox1.Text = [L7]
TextBox28.Text = [M1]
UserForm_Initialize
.ListIndex = ListBox1.ListCount - 1 'ListBoxyn son satyryna gider.'
End With
Range("A65535").End(xlUp).Offset(1, 0).Select 'Son bo? satyra gider
On Error Resume Next
Erase Arr
End SubRE: Sayfaya İsim Vermek - feraz - 01/05/2020
Önceki koddaki kısımları alttaki gibi değiştirirsenizde olur.Yani find komutsu yapıldı.
Listbox ve sayfadaki satır numaraları karşılaştırıldı.
If .ListCount = 0 Then Exit Sub
ReDim Arr(1 To .ListCount, 1 To 1)
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
say = say + 1
Arr(say, 1) = i + 7 ' sifirdan baslandigi icin 7 yazildi 6 yerine
End If
Next
If say > 0 Then
For i = UBound(Arr) To LBound(Arr) Step -1
If Arr(i, 1) <> "" Then
If CLng(Arr(i, 1)) > 6 Then Rows(CLng(Arr(i, 1))).EntireRow.Delete
End If
Next
End IfRe: Sayfaya İsim Vermek - m_demir - 01/05/2020
Hocam çok, çok teşekkürler ellerinize sağlık.
Saygılarımla Size ve bütün sevdiklerinize sağlıklı günler diliyorum.
Hocam Son olarak A1 hücresin de 10:30 olan saati B2 hücresinde 10,30 ondalık sayı olarak gösterebilirmiyiz. Formül ile
TextBox1 de 10:30 olan saati TextBox2 de 10,30 ondalık sayı olarak gösterebilirmiyiz. Kod ile
RE: Sayfaya İsim Vermek - feraz - 01/05/2020
(01/05/2020, 03:36)m_demir yazdı: Hocam çok, çok teşekkürler ellerinize sağlık.Rica ederim amin sizinde.Replace ile olabilir.
Saygılarımla Size ve bütün sevdiklerinize sağlıklı günler diliyorum.
Hocam Son olarak A1 hücresin de 10:30 olan saati B2 hücresinde 10,30 ondalık sayı olarak gösterebilirmiyiz.
Denemeden örnek için yazıyorum yapamazsanız yazarsınız.
Range("A1").value= replace(Range("A1").value,":",",")