VBA Problem
Karadag
ich habe folgendes Problem:
unten dargestellten VBA Kode verwende ich von einem Excel Datei bestimmte variable (Außer D7) Zellen zu anderem Excel Datei an bestimmte Zellen zu übertragen. Mein Problem ist gewollte Übertragung nicht immer sauber funktioniert manchmal wird gar nichts übertragen und manschmall nicht an vordefinierten Zellen übertragen. Wo habe ich den Fehler und wie kann ich korrigieren. Danke im voraus für nette Hilfe.
Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Abbrechen As Boolean)
Worksheets("Envanter").Activate
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWindow.ActivateNext
Kod = Range("D7").Value
h61 = Range("h61").Value
h63 = Range("h63").Value
h65 = Range("h65").Value
e61 = Range("e61").Value
e63 = Range("e63").Value
e65 = Range("e65").Value
r67 = Range("r67").Value
o67 = Range("o67").Value
Workbooks.Open ("D:\Ofis\Papatya\Envanterler\Envanter.xls")
Range("A:A").Select
Cells.Find(What:=Kod).Activate
ActiveCell.Offset(0, 3).Value = h61
ActiveCell.Offset(0, 4).Value = h63
ActiveCell.Offset(0, 5).Value = h65
ActiveCell.Offset(0, 7).Value = e61
ActiveCell.Offset(0, 8).Value = e63
ActiveCell.Offset(0, 9).Value = e65
ActiveCell.Offset(0, 10).Value = r67
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub