Bir sayfadaki veriyi diğer sayfalara kopyalamak

[gcanlar2012]

:bravo: :bravo: :bravo:

ARKADASLAR GERCEKTEN SUPERSINIZ YA.BEN BIR HOTELIN MUHASEBE DEPARTMANINDA CALISIYORUM.DEVAMLI EXCEL LAZIM.KENDIMDE DEVAMLI KOLAY OLSUN DIYE MAKRO HAZIRLIYORUM.DIKKAT EDIN HAZIRLIYORUM DEDIM CUNKU SIZLER GIBI KOD YAZAMIYORDUM TAKI BU SITEYE UYE OLANA KADAR.KAFAMA TAKILAN OKADAR COK SORU VARDIKI.SITEYE BU GUN UYE OLDUM.SAAT 10:00 DAN BERI SITEDEYIM
VE SORULAR COZULDU SIMDI ISE MANYAK FIKIRLER DOLASIYOR AKLIMDA (OZEL BIR KURSTAN PROGCILIK SERTIFIKAM VAR YANI OLAYLARI HEMEN ALGORITMA SEKLINDE DUSUNUYOM.)HARIKA BIR SITE.TESEKKUR EDERIMM HEPINIZE.
SIMDI BIRDE UFAK SORUM VAR.
KOD YAZAMADIGIM ICIN SAYFALAR ARASI KOPYALAMA YADA HERHANGI BIR SEY YAPARKEN.ATIYORUM SAYFA1 A1 HÜCRESINDEKI VERIYI ON TANE SAYFAYA YAPISTIRIYORUM TABI MAKROYU MANUEL HAZIRLADGIM ICIN GIRDIGIM HER SAYFA GORULUYOR(YANI EKRANDA BIR FIRTINA ESIYOR ORAYA GIR YAPISTIR ÇIK Ã?BÜRÜNE GIR)BUNU EKRANA YANSIMADAN YAPABILIRMIYIM.
SIMDIDEN TESEKKUR EDERIM.

 

[sekand]

Sub deneme()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).[a1].Value = Worksheets("sayfa1").[a1]
Next i
End Sub

bu kod ile sayfa1 deki a1 hücresindeki veriyi diğer sayfalara atabilrsin

 

[Levent Menteşoğlu]

Ben her ne kadar Sn sekand'ın önerdiği şekilde çözümü tercih etsemde bir bilgi olarak şunuda belirteyim, belki bir yerde gerekli olur. Eğer kodlarınızın en başına aşağıdaki ilaveyi yaparsanız ekrandaki fırtınayı durdurabilirsiniz.

Application.ScreenUpdating = False

 

[gcanlar2012]

çok teşekkür ederim.sağolun.
iyiki varsınız.
:hihoho:

 

[gcanlar2012]

SEKAND ARKADAÞIMIN VERDIGI KODLARI YENI YAPACAGIM MAKROLARDA KULLANICAM AMA LEVENTM VERDIÐI KISA VE HARIKA BIR KOD CUNKU UFAKTA OLSA HAZIRLADIÐIM MAKROLARIN BAÞINA YAZARAK OLAYI ÇÃ?ZDÜM.
TEKRAR TEÞEKKÜR.

 

[Levent Menteşoğlu]

Sn gcanlar2012

Forum kurallarımız gereği konu başlığı sorunuzu tanımlayıcı bir cümle olmalıdır, bu sebeple başlığınızı soruya uygun olarak değiştirdim. Birde büyük harflerle yazılanların okumayı zorlaştırması nedeniyle küçük harf kullanmanızı rica ediyorum.