Merhaba
Ekteki dosyada aparat giriş sayfasında disket düğmesine basıldığında aşağıdaki kod çalışıyor. Ancak işaretlediğim kısımda çalıştığında (örneğin 3-A 019 F001 olarak klasör açması gerektiğinde) 3-1 olarak açıyor. Tüm kodu F8 ile çalıştırdığım zaman ancak düzgün çalışıyor ve klasörü 3-A 019 F001 olarak açıyor. Neden kod düzgün çalışmıyor, yardımcı olabilecek arkadaşlarıma teşekkür ederim.
Sub AparatGiris()
'
' Makro2 Makro
' Makro OEM tarafından 08.05.2009 tarihinde kaydedildi.
'
Sheets("Aparat listesi").Select
son = [b65536].End(3).Row + 1
enbuyuk = WorksheetFunction.Max(Range("b4:b65536"))
Range("B2").Value = enbuyuk + 1
Range("B2:O2").Select
Selection.Copy
'son = [b65536].End(3).Row + 1
Cells(son, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
'Çalışması gereken kodun başlangıcı
MyDirectory = ActiveWorkbook.Path & "\" & "Aparat Kayıtları\" & Range("b2").Value & "-" & Range("b4").Value
DirTest = Dir$(MyDirectory, vbDirectory)
If DirTest = "" Then
MkDir MyDirectory
DoEvents 'just make sure it is there
End If
ChDir MyDirectory
'Kodun sonu
Sheets("Aparat listesi").Select
Range("B2").ClearContents
Sheets("Aparat Giriş").Select
ActiveSheet.Unprotect "airwolf"
Range("B4:B12").ClearContents
Range("E2:E12").ClearContents
ActiveSheet.Protect "airwolf"
End Sub
Ekteki dosyada aparat giriş sayfasında disket düğmesine basıldığında aşağıdaki kod çalışıyor. Ancak işaretlediğim kısımda çalıştığında (örneğin 3-A 019 F001 olarak klasör açması gerektiğinde) 3-1 olarak açıyor. Tüm kodu F8 ile çalıştırdığım zaman ancak düzgün çalışıyor ve klasörü 3-A 019 F001 olarak açıyor. Neden kod düzgün çalışmıyor, yardımcı olabilecek arkadaşlarıma teşekkür ederim.
Sub AparatGiris()
'
' Makro2 Makro
' Makro OEM tarafından 08.05.2009 tarihinde kaydedildi.
'
Sheets("Aparat listesi").Select
son = [b65536].End(3).Row + 1
enbuyuk = WorksheetFunction.Max(Range("b4:b65536"))
Range("B2").Value = enbuyuk + 1
Range("B2:O2").Select
Selection.Copy
'son = [b65536].End(3).Row + 1
Cells(son, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
'Çalışması gereken kodun başlangıcı
MyDirectory = ActiveWorkbook.Path & "\" & "Aparat Kayıtları\" & Range("b2").Value & "-" & Range("b4").Value
DirTest = Dir$(MyDirectory, vbDirectory)
If DirTest = "" Then
MkDir MyDirectory
DoEvents 'just make sure it is there
End If
ChDir MyDirectory
'Kodun sonu
Sheets("Aparat listesi").Select
Range("B2").ClearContents
Sheets("Aparat Giriş").Select
ActiveSheet.Unprotect "airwolf"
Range("B4:B12").ClearContents
Range("E2:E12").ClearContents
ActiveSheet.Protect "airwolf"
End Sub