combobox formülüne yardım

Katılım
27 Mayıs 2010
Mesajlar
527
Excel Vers. ve Dili
Excel 2003 Turkçe
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
 

NBATMAN

Destek Ekibi
Destek Ekibi
Katılım
1 Aralık 2007
Mesajlar
654
Excel Vers. ve Dili
Office 2003 excel Türkçe
Merhaba,

Örnek dosya ekleyip, bu dosya üzerinde yaplmasını istediğiniz konu ile ilgili açıklamalar yapar mısınız?
 
Üst