- Katılım
- 14 Mart 2007
- Mesajlar
- 90
- Excel Vers. ve Dili
- excel 2003 Tr
bu dusey ara yada buna benzer formullerın sagladıgı kolaylıgı bıze makrolarda saglayamazmı? bu tur formullerın makro yazılısı varmı?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
1)makrolarda excel eklentisiyle tüm sayfalarda işlem yapılabılıyor ama sanırım bu olay formullerde olmuyordüşeyara zaten kendi kendine bir makrodur
parametreler i verirsiniz işi yapar.
bunun dışında nasıl bir kolaylık bekliyorsunuz.!!
Ne istediğinizi anlayamadım.1)makrolarda excel eklentisiyle tüm sayfalarda işlem yapılabılıyor ama sanırım bu olay formullerde olmuyor
2) bagımsız değişkenşer istiyorum yanı duseyara ile sordugum sorunun cevabının bagımsız olmasını istiyorum
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target = "" Then
Range("b" & Target.Row & ":e" & Target.Row).ClearContents
Exit Sub
End If
Target.Offset(0, 1) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\deneme\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,2,0)")
Target.Offset(0, 2) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\deneme\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,8,0)")
Target.Offset(0, 3) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\deneme\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,10,0)")
Target.Offset(0, 4) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\deneme\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,11,0)")
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target = "" Then
Range("b" & Target.Row & ":e" & Target.Row).ClearContents
Exit Sub
End If
Target.Offset(0, 1) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\levent\Yeni Klasör\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,2,0)")
Target.Offset(0, 2) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\levent\Yeni Klasör\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,8,0)")
Target.Offset(0, 3) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\levent\Yeni Klasör\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,10,0)")
Target.Offset(0, 4) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\levent\Yeni Klasör\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,11,0)")
End Sub