- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
@Ömer BARAN Hocamın Çözüldü - Diğer excel sayfasındaki verileri çekerken sınırlanma
veri çekme soruma verdiğiniz cevap işime yaradı fakat ek olarak şöyle bir sorunum oluştu çektiğim raporda isim ve soy isim farklı kolonlarda yer alıyor ben bunları birleştirerek kendi satırlarında a sütununa çekicek şekilde basit bir şekilde =E10&" "&F10 gibi çekmiştim veri yenilerken silinmiyordu fakat şimdi uyguladığım makro ile veri çekme formülünde verileri silip yenilerini çekiyor dolayısı ile A sütununa birleştirdiğim isimlerde siliniyor acaba aşağıda eklediğim koda bir düzenleme yaparak a sütununu silmemesini sağlayabilirmisiniz
Set bu = ThisWorkbook.Sheets("tasnif")
bu.Cells.Clear
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Set ac = Workbooks.Open(ThisWorkbook.Path & "Hakederek-Tahliye.xls", , True, , , , , , , , , , False)
ActiveWorkbook.Sheets("StyleSheet").UsedRange.Copy bu.[B1]
bu.ListObjects.Add(xlSrcRange, bu.UsedRange, , xlYes).Name = "XD_Tablo"
Workbooks("Hakederek-Tahliye.xls").Close 0
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
veri çekme soruma verdiğiniz cevap işime yaradı fakat ek olarak şöyle bir sorunum oluştu çektiğim raporda isim ve soy isim farklı kolonlarda yer alıyor ben bunları birleştirerek kendi satırlarında a sütununa çekicek şekilde basit bir şekilde =E10&" "&F10 gibi çekmiştim veri yenilerken silinmiyordu fakat şimdi uyguladığım makro ile veri çekme formülünde verileri silip yenilerini çekiyor dolayısı ile A sütununa birleştirdiğim isimlerde siliniyor acaba aşağıda eklediğim koda bir düzenleme yaparak a sütununu silmemesini sağlayabilirmisiniz
Set bu = ThisWorkbook.Sheets("tasnif")
bu.Cells.Clear
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Set ac = Workbooks.Open(ThisWorkbook.Path & "Hakederek-Tahliye.xls", , True, , , , , , , , , , False)
ActiveWorkbook.Sheets("StyleSheet").UsedRange.Copy bu.[B1]
bu.ListObjects.Add(xlSrcRange, bu.UsedRange, , xlYes).Name = "XD_Tablo"
Workbooks("Hakederek-Tahliye.xls").Close 0
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic