...Sheets("ÖZET").Visible = True
Sheets("ÖZET").Select
Sheets("ÖZET").Range("C4.Z20000").ClearContents
Sheets("ÖZET").Range("C4:Z" & ListBox1.ListCount + 3) = ListBox1.List
MsgBox " Kayıt Aktarıldı"
Else
If cevap = vbNo Then
MsgBox " Kayıt aktarma işlemi iptal edildi"
Exit Sub
End If...
...Dim Nesne As Control
Dim i As Integer
Dim a As Integer
UserForm1.ListBox1.Clear
ListBox1.AddItem ("T.C.Kimlik No")
ListBox1.List(ListBox1.ListCount - 1, 1) = "Adı Ve Soyadı"
ListBox1.List(ListBox1.ListCount - 1, 2) = "İzin Başlangıç Tarihi"
ListBox1.List(ListBox1.ListCount - 1, 3) = "İzin...
...On Error Resume Next
' Seçili satırları selectedRows dizisine ekleyin
For i = 0 To UserForm17.ListBox1.ListCount - 1
If UserForm17.ListBox1.Selected(i) Then
ReDim Preserve selectedRows(selectedCount)
selectedRows(selectedCount) =...
...Dim i As Integer
On Error Resume Next
' Seçili satırları selectedRows dizisine ekleyin
For i = 0 To UserForm17.ListBox1.ListCount - 1
If UserForm17.ListBox1.Selected(i) Then
ReDim Preserve selectedRows(selectedCount)
selectedRows(selectedCount) = i...
...çalıştıracak yani listbox6 verilerini Rapor sayfasına aktaracak.
With ListBox6
S1.Cells(S1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount) = .List
End With end
Butona tekrar tıkladığımda msgbox uyarı mesajı verecek ("Üretim planına devam etmek istiyor musunuz")...
...Then
Set s1 = Sheets("Rapor")
s1.Range("A5:R200").ClearContents
With ListBox6
s1.Cells(s1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount) = .List
End With
Else
With ListBox6
s1.Cells(s1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount)...
...If Onay = vbNo Then Exit Sub
Rem
With ListBox6
S1.Cells(S1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount) = .List
End With
End Sub
Private Sub CommandButton9_Click()
Call Test
End Sub end[code]
Yanlız hocam ben soruyu yanlış sormuşum çok özür dilerim...
...Private Sub CommandButton9_Click()
Set S1 = Sheets("Rapor")
With ListBox6
S1.Cells(S1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount) = .List
End With
End Sub
end[code]
Ancak aşağıdaki gibi çalışmasını istiyorum.
butona tıkladığımızda Rapor sayfasında...
...kendi dosyanıza göre uyarlayabilirsiniz.
Private Sub CommandButton1_Click()
Dim X As Long, Topla As Double
For X = 0 To ListBox1.ListCount - 1
If ListBox1.List(X, 10) <> "" Then
Topla = Topla + ListBox1.List(X, 10)
End If
Next
TextBox3 =...
...say = say + 1
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
End If
End With
End If
If ListBox1.ListCount > 0 Then
ListBox1.ListIndex = 0
TextBox6.Text = ListBox1.ListCount & " Adet"
MsgBox ListBox1.ListCount & " Adet Bulundu"
Else
MsgBox "Hiç veri...
...Bunu PDF olarak nasıl revize edebiliriz.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
j = j + 1
End If
Next i
If j = 0 Then MsgBox "Seçim Yapmadınız": Exit Sub
'On Error Resume Next
Dim appword...
...derdimi anlatmaya çalıştım.
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
Sheets("Satışdetay").Select
Sheets("Satışdetay").Range("A" & ListBox2.ListIndex + 2).Select
t =...
...= 1
If DateDiff("h", Sheets("Sayfa1").Range("H" & i), Sheets("Sayfa1").Range("H" & i)) > 7 Then
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i) = "(COLOR="Red"]) Hasan (/COLOR))" Then
ListBox1.Selected(i) = True
End If
Next i
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.