Son İletiler

Sayfa: [1] 2 3 ... 10
1
Merhaba,
Excelde herbiri 1 ila 20 satır arasında veriler içeren resimdeki dosyamda sarı boyalı bölgeleri(A Sütununda 1 karşılığı olan satırlar ve "MISC" içeren hücrede sonlanacak şekilde) kopyalayarak başka bir sayfada alt alta devrik yapıştıran makro kodu yazabilir miyiz acaba?

Kopyalama işlemi A sütununda 0 içeren veya boş hücreye denk gelince duracak ve diğer sayfaya dikey yapıştıracak. sonra döngü şeklinde aynı şeyi 2. sarı bölge için yapacak bu şekilde 1000 küsür satırlık bir dosyam mevcut.

Yardımcı olabilirseniz sevinirim.

https://hizliresim.com/U5bXHl
2
Microsoft Excel, Vba, Makro, Formül vb. Soruları / formül nasıl olmalı
« Son İleti Gönderen: gazolay 22 Mart 2020, 19:37:26 »
ben kendimce kendime buradan öğrendiğim bilgiler ışığında kendime bir ön muhasebe programı yaptım...
stok-fatura-üretim-cari-banka-bunların hepsi var...soru şurada başlıyor
ben alış faturası bölümüne gelince ..atıyorum x bir firmayı filtre yapınca x firmanın bana hangi tarihinde hangi fatura veya fiş getirdiği ve benim ona ödememi görüyorum...
lakin şöyle bir formüle artık adını siz koyun ihtiyacım oldu....ben faturadaki x firmanın alacağı veya borcunu orada değilde ..açtığım cari kartlar bölümünde görebilir miyim...
burada takip ediyorum düşeyara formülü ile sayfalar arası işlemler yapıyorsunuz...size bir örnek bırakıyorum ...sizin için çok kolay biliyorum..bana zulüm gibi
(N 1 sutunundaki fiyatın cariler sayfasındaki ilgili carinin alacağına otomatik olarak gelmesini istiyorum)
3
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: EXCELDE NUMARALANDIRMA
« Son İleti Gönderen: SahraS 21 Mart 2020, 16:36:56 »
merhabalar
yazdığınız ikinci makro benim işime yarayan bir makro fakat kullanırken farkettim a hücresine veri girişini sildiğimde sıra numarası bir sonraki sıradan devam ediyor. şöyle örnek vereyim a2 hücresine veri girişi yaptım b2 hücresine 1 yazdı. a5 hücresine veri girişi yaptım b5 hücresine 2 yazdı. a2 hücresindeki veriyi sildiğimde b2 deki veri siliniyor b5 hücresindeki iki kalmaya devam ediyor. a3 hücresine veri girişi yaptığımda 3 den devam ediyor. ben a hücresindeki veriyi silsem bile 1 den başlayarak sıralamaya devam etmesini istiyorum yardımcı olma şansınız var mı acaba? şimdiden teşekkürler...
4
silinmiş tekrar yuklermısınız ?
5
Microsoft Excel, Vba, Makro, Formül vb. Soruları / sayfa silinmesin
« Son İleti Gönderen: drykcktl 28 Şubat 2020, 09:41:00 »
Ekte hazırlamış olduğum excel dosyamda data sekmesinden sayfalara isimlere göre dağıtıyorum.Ancak belediyelere göre toplam sekmesi içindeki formüllerimi siliyor bunu nasıl sabitleyebilirim acaba
6
Kullandığımız excel dosyasından rapor olarak çıktı alıyoruz. Bunu normal yazıcıya gönderdiğimiz zaman tek tek dosyaları sırayla yazdırıyor fakat ben bu dosyaları tek bir pdf dosyası olarak çıktı almak istiyorum. Sanal Pdf yazıcısını kullandığım zaman dosyaları tek tek verdiği için program pdf yazıcıda tek tek ayrı olarak yazdırıyor. Dosyalar yaklaşık olarak 5000 - 7000 civarındadır. Bildiğiniz veya farklı bir öneriniz varsa sanal pdf yazıcısında gönderilen çıktıları önce biriktirecek daha sonra hepsini tek dosya halinde pdf olarak yazmak ve kaydetmek istiyoruz. Önerilerinizi ve yardımlarınızı bekliyorum.
7
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: yedek alma
« Son İleti Gönderen: drykcktl 19 Şubat 2020, 11:18:19 »
merhaba herkese kodlarla hazırlanmış 1 dosyam var.eksik olan noktalar konusund yardımcı olursanız sevinirim.
şöyle anlatayım derdimi şubat ayı gelen mal excel dosyasında genel sayfa yazan bir sayfam var buraya butonla diğer sayfalardan (altta bulunan tarih sayfalarından) aktar butonuyla veri alıyorum.istediğim aynı klasör içinde bulunan şubat analiz dosyasında genel sayfasınada yazdırabilirmiyim aynı verileri  bir nevi yedek alıcam.
burada aklıma takılan bir durum var ama analiz dosyası içinde farklı sayfalarda olacak bunları etkilememi yani sadece genel sayfasına işlem yapmalı
günlerdir birsürü kodla uğraştım ama beceremedim



yardımcı olabilecek bir arkadaş yokmu  :'(
8
Microsoft Excel, Vba, Makro, Formül vb. Soruları / yedek alma
« Son İleti Gönderen: drykcktl 18 Şubat 2020, 15:40:03 »
merhaba herkese kodlarla hazırlanmış 1 dosyam var.eksik olan noktalar konusund yardımcı olursanız sevinirim.
şöyle anlatayım derdimi şubat ayı gelen mal excel dosyasında genel sayfa yazan bir sayfam var buraya butonla diğer sayfalardan (altta bulunan tarih sayfalarından) aktar butonuyla veri alıyorum.istediğim aynı klasör içinde bulunan şubat analiz dosyasında genel sayfasınada yazdırabilirmiyim aynı verileri  bir nevi yedek alıcam.
burada aklıma takılan bir durum var ama analiz dosyası içinde farklı sayfalarda olacak bunları etkilememi yani sadece genel sayfasına işlem yapmalı
günlerdir birsürü kodla uğraştım ama beceremedim 
9
Merhaba

Ekli dosyadaki datayı bir tarih ve açıklama filtrelemesinden geçirmem gerekiyor.
Şöyle ki; elimde belli tarihlerde ödenecek banka kredileri ve çek ile ilgili bir data var. Bu datadan önümüzdeki 6 aylık ve 12 aylık periyotlarda ne kadarlık kredi ödemesi yapacağımı belirlemem gerekiyor.

Periyotlar şu şekilde bugünden itibaren önümüzdeki;
- 0 - 6 Ay
- 6 - 12 Ay
- 12 - 24 Ay
- 24 - 36 Ay

Konu hakkında desteğinizi rica edeceğim
Şimdiden teşekkürler
10
Merhaba Değerli Arkadaşlar,

Aşağıda paylaşmış olduğum kod ile 2 adet aynı resmi alabiliyorum fakat
3. resmin ismini kod üzerinde belirtmeme rağmen farklı olmasını sağlayamıyorum.
Gözümden kaçan ve hatalı olduğum noktada beni bilgilendirmenizi rica ederim.





Bilgi Notları :
Tür resimler aynı klasör içerisinde.
Tüm resimler aynı formatta.
Resimler numerik olarak sıralı 1.svg, 2.svg, 3.svg…


Kod: [Seç]
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [I30]) Is Nothing Then Exit Sub

On Error GoTo cik

For Each res In ActiveSheet.Pictures
    res.Delete
Next res

Dim ResimYolu As Variant
Dim ResimYolu1 As Variant

Dim Resim1 As Object
ResimYolu = ActiveWorkbook.Path & "\" & Range("I30") & ".svg"
Set Resim1 = ActiveSheet.Pictures.Insert(ResimYolu)
    With Range("I6")
    Resim1.Top = 89.37480315
    Resim1.Height = 80
    Resim1.Left = .Left
    Resim1.Width = 80
      End With

Dim Resim2 As Object
Set Resim2 = ActiveSheet.Pictures.Insert(ResimYolu)
    With Range("I19")
    Resim2.Top = 226.37480315
    Resim2.Height = 80
    Resim2.Left = .Left
    Resim2.Width = 80
        End With
             
Dim Resim3 As Object
ResimYolu1 = ActiveWorkbook.Path & "\" & Range("I30") & "1.svg"
Set Resim3 = ActiveSheet.Pictures.Insert(ResimYolu1)
    With Range("B8")
    Resim3.Top = .Top
    Resim3.Height = 80
    Resim3.Left = .Left
    Resim3.Width = 80
        End With
   
cik:
End Sub
Sayfa: [1] 2 3 ... 10