Command Buton Uyarısı

[hlojan]

2 tane Commandbutton var

Commandbutton1
Commandbutton2


Amac : Commandbutton1 ' e basmadan Commandbutton2 ' ye basarsam bana önce Commandbutton1'e bas die uyarı versin.

Private Sub CommandButton2_Click()
isim = Worksheets("sayfa3").Range("ı1").Value
klasor = Worksheets("sayfa3").Range("ı2").Value
TARH = Worksheets("sayfa3").Range("Q1").Value


ad1 = "C:\Users\Metisa\Desktop\ARŞİV\" & TARH

If CreateObject("Scripting.FileSystemObject").FolderExists(ad1) = False Then
MkDir ad1
End If

ad2 = "C:\Users\Metisa\Desktop\ARŞİV\" & TARH & "\" & klasor

If CreateObject("Scripting.FileSystemObject").FolderExists(ad2) = False Then
MkDir ad2
End If



With ActiveWorkbook
.SaveAs "C:\Users\Metisa\Desktop\ARŞİV\" & TARH & "\" & klasor & "\" & isim & ".xls"

End With
MsgBox "İşlem tamam.", vbInformation, "Metro"

End Sub

Private Sub CommandButton1_Click()
Dim con As Object, rs As Object
yol = "C:\DATA\DATA.accdb"
Set con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & ""
rs.Open "select * from [A] where kod='" & Worksheets("sayfa3").Range("I2").Value & "' and sira=" & CDbl(Worksheets("sayfa3").Range("M2").Value) & ";", con, 1, 1
If rs.RecordCount > 0 Then
 On Error Resume Next
   
    Worksheets("sayfa3").Range("ı8").Value = ""
    Worksheets("sayfa3").Range("ı9").Value = ""
    Worksheets("sayfa3").Range("ı10").Value = ""
    Worksheets("sayfa3").Range("ı11").Value = ""
  
    
   
    Worksheets("sayfa3").Range("ı8").Value = rs("marka")
    Worksheets("sayfa3").Range("ı9").Value = rs("model")
    Worksheets("sayfa3").Range("ı10").Value = rs("seri")
    Worksheets("sayfa3").Range("ı11").Value = rs("musterino")
End If
    
rs.Close
con.Close




Set rs = Nothing: Set con = Nothing

End Sub

 

[Ömer BARAN]

Merhaba.
--CommandButton1'in sayfaya yazdığı veri üzerinden, (örneğin combut1 A1'e mutlaka 1 yazıyor ise) commandbutton2kodlarının başında if A1 1 değilse msg box ve end if şeklinde birşey olabilir.
-- form açılışında commandbutton2.Enabled=false satırı olur ve Commandbutton1'in kodunun sonunda o false yi true yapan bir satır olabilir. Bu sayede Command button2 zaten başlangıçta kullanılamaz .

 

[hlojan]

harika bir şey daha sorsam

şart = Sayfada herhangi bir hücre değişirse

if şart then
commandbutton2.Enabled=false
end if

bunu nasıl sağlarım ?

 

[keskinol]

Arkadaşlar buradaki sorun nedir? Compile Error Can't Find Project or Library diyor ve dosyayolu'nu seçiyor. Daha önce sorunsuz çalıştırıyordum. Windows10'a geçtim. Excel'i etkinleştirmemi istiyor. Ondan kaynakı olabilir mi?

Private Sub CommandButton2_Click()
Set dosyayolu = Application.FileDialog(msoFileDialogFolderPicker)
Dim vrtSelectedItem As Variant

With dosyayolu
.ButtonName = "Dosya Seç"
.Title = "Lütfen Klasör seçiniz."
If .Show = -1 Then

For Each vrtSelectedItems In .SelectedItems
filespath = vrtSelectedItems
klsryolu = dosyayolu.InitialFileName
Next vrtSelectedItems
Else
End If
End With
Label3.Caption = filespath
End Sub