Dizi ile bütün sayfalara kayıt yapmak istiyorum.

[s.savas]

Merhaba arkadaşlar.
Userform ile çalışma kitabındaki sayfaları bir diziye tanımlayarak dizide tanımlanan bütün kitaplara aynı anda kayıt yaptırabilirmiyiz.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Private Sub CommandButton1_Click()
 
Dim satır As Long, i As Integer
 
If TextBox1.Value = "" Then
    TextBox1.SetFocus
    MsgBox ("Lütfen Adı Soyadı Bilgisini Giriniz"), _
    vbInformation, "Süleyman Savaş"
    Exit Sub
End If
 
For i = 1 To Worksheets.Count
    With Sheets(i)
        satır = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Cells(satır, "A").Value = TextBox1.Value
        .Cells(satır, "A").HorizontalAlignment = xlLeft
        .Cells(satır, "B").Value = TextBox2.Value
        .Cells(satır, "B").HorizontalAlignment = xlCenter
    End With
Next i
 
TextBox1.Text = ""
TextBox2.Text = ""
 
End Sub

.

 

[s.savas]

Hocam çok teşekkür ederim.

 

[s.savas]

Ömer hocam aynı dizi yöntemini veri silmek içinde kullanmak istiyorum. Kodu aşağıdaki gibi düzenledim, hata mesajı vermiyor ancak texboxlara yüklediğim veriyide silmiyor. Hatam nerede anlamadım.

Private Sub cmdSİL_Click()
If TextBox2.Text = "" Then
MsgBox "Lütfen önce Malzemenin / İlacın Adını Giriniz...", , "Kayıt Hatası!!!"
Exit Sub
End If


If MsgBox("Ekrandaki Bilgilere Ait Satır Silinecektir. BUNU BİR DAHA DÜŞÜNÜN !!", vbInformation + vbYesNo, "..:İKKAT::..") = vbNo Then Exit Sub
Y = ListView1.SelectedItem.Index

sat = ListView1.ListItems(Y)

X = ListView1.ListItems(Y).ListSubItems(4).Text
cevap = MsgBox("Silmek istediğinizden emin misiniz?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then

For i = 1 To Worksheets.Count
With Sheets(i)
.Rows(sat).ClearContents
End With
Next i

Set Sh = Nothing

MsgBox " " & TextBox2.Value & " isimli kayda ait Tüm Bilgiler Silinmiştir.", vbInformation
say = WorksheetFunction.CountA(Range("b5:b65500"))
For i = 1 To say
Cells(i + 5, 2) = i
Next i

'Range("B6:B65500").Select
'Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
'OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'DataOption1:=xlSortNormal
'************************
'Range("c6:ar65500").Select
'Selection.Sort Key1:=Range("c6"), Order1:=xlAscending, Header:=xlGuess, _
'OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'DataOption1:=xlSortNormal

'Label9 = WorksheetFunction.Count(Range("b5:b65500")) + 1
cmdTEMİZLE_Click
ComboBox2_Change
TextBox2.SetFocus
Unload UserForm1
UserForm1.Show
End If
End Sub

 

[Ömer]

Ben denediğim de sildi.

.

 

[s.savas]

Ben denediğim de sildi.

.

Haklısınız hocam. Listview'da direkt seçince siliyor. ComboBox2 de arama yapıp seçince silmiyormuş.