- Katılım
- 5 Mayıs 2024
- Mesajlar
- 7
- Excel Vers. ve Dili
- Microsoft Excel Microsoft 365 için MSO
Merhaba vba ya yeni başladım birkaç sıkıntım var
yaşadığım sıkıntı hesap sayfasında ı23 teki yazılı hücre gruplarını seçtikten sonra sayım sayfasındaki a6 dan başlıyan hücrelerin en alt satırındaki hücrenin 2satır 1 sütun offsetine yapıştırmasını istiyorum ama sorun şuki hücre seçiminde tüm verileri alıyor yapıştırma esnasında 150 satır altına yapıştırıyor nedenini anlıyamadım
sheets("HESAP_SAYFASI").select
range("I23").SELECT
range(selection,selection.end(xldown)).select
range(selection,selection.end(xltoright)).select
selection.copy
sheets("SAYIM_SAYFASI").SELECT
RANGE("A6").SELECT
Selection.end(xldown).select
selection.offset(2,1).activecell.select
activesheet.paste
2. sıkıntımsa ilk sıkıntıyı çözdükten sonra offsetlenip yapıştırılan verilerin offsetinin offsetini almak istemem alıp kopyalamada sıkıntı yok ama offsetlememde
sheets("HESAP_SAYFASI").select
range("I32").SELECT
range(selection,selection.end(xldown)).select
range(selection,selection.end(xltoright)).select
selection.copy
sheets("SAYIM_SAYFASI").SELECT
RANGE("A6").SELECT
Selection.end(xldown).select
selection.offset(2,1).activecell.select
selection.end(xldown).select
selection.offset(3,0).select
activesheet.paste
yaşadığım sıkıntı hesap sayfasında ı23 teki yazılı hücre gruplarını seçtikten sonra sayım sayfasındaki a6 dan başlıyan hücrelerin en alt satırındaki hücrenin 2satır 1 sütun offsetine yapıştırmasını istiyorum ama sorun şuki hücre seçiminde tüm verileri alıyor yapıştırma esnasında 150 satır altına yapıştırıyor nedenini anlıyamadım
sheets("HESAP_SAYFASI").select
range("I23").SELECT
range(selection,selection.end(xldown)).select
range(selection,selection.end(xltoright)).select
selection.copy
sheets("SAYIM_SAYFASI").SELECT
RANGE("A6").SELECT
Selection.end(xldown).select
selection.offset(2,1).activecell.select
activesheet.paste
2. sıkıntımsa ilk sıkıntıyı çözdükten sonra offsetlenip yapıştırılan verilerin offsetinin offsetini almak istemem alıp kopyalamada sıkıntı yok ama offsetlememde
sheets("HESAP_SAYFASI").select
range("I32").SELECT
range(selection,selection.end(xldown)).select
range(selection,selection.end(xltoright)).select
selection.copy
sheets("SAYIM_SAYFASI").SELECT
RANGE("A6").SELECT
Selection.end(xldown).select
selection.offset(2,1).activecell.select
selection.end(xldown).select
selection.offset(3,0).select
activesheet.paste
Son düzenleme: