Merhabalar,
Aşağıdaki combobox formülünde,başka sayfadan alınan verilerin sadece hücre değerlerini almak için nasıl düzenlenebilir.Yardımınızı rica ediyorum,
Private Sub ComboBox1_Change()
Dim c As Range, _
i As Long, _
s2 As Worksheet
On Error Resume Next
Set s2 = Sheets("Uretim Giderleri")
Set c = s2.Cells.Find(ComboBox1.Value, LookIn:=xlValues)
If c Is Nothing Then Exit Sub
i = Cells(Rows.Count, "F").End(3).Row
If i < 4 Then
i = 4
Else
i = i + 4
End If
Application.EnableEvents = False
s2.Range(c.Address).CurrentRegion.Copy [f4]
s2.Range("b:f").Copy
Columns("f:j").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub
Aşağıdaki combobox formülünde,başka sayfadan alınan verilerin sadece hücre değerlerini almak için nasıl düzenlenebilir.Yardımınızı rica ediyorum,
Private Sub ComboBox1_Change()
Dim c As Range, _
i As Long, _
s2 As Worksheet
On Error Resume Next
Set s2 = Sheets("Uretim Giderleri")
Set c = s2.Cells.Find(ComboBox1.Value, LookIn:=xlValues)
If c Is Nothing Then Exit Sub
i = Cells(Rows.Count, "F").End(3).Row
If i < 4 Then
i = 4
Else
i = i + 4
End If
Application.EnableEvents = False
s2.Range(c.Address).CurrentRegion.Copy [f4]
s2.Range("b:f").Copy
Columns("f:j").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub