• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

satır ekleme

Levent bey,

açıkladığınız şekilde düzenlemeyi yaptım.Sorunum çözüldü fakat bir sorunum
daha var satır ekleme yaptıgımda hesaplama bölümünde eklenen satırın AS
sütununda eklenen satırdaki AS33 hücresindeki formül bozuluyor burda yaptıgım förmül düzenindemi hata var acaba.


Saygılarımla,
İhsan
 

Ekli dosyalar

AS32 hücresinde bulunan formüldeki $ işaretlerini kaldırın.
 
Levent bey,

çok teşekkür ederim.Şimdi formülü bozmadan alt satıra taşıyor.Yalnız ilk satırda değer varsa ikinci satırada aynısını taşıyor.

Saygılarımla,
İhsan
 
Ekli dosyada gerekli ilaveleri bulabilirsiniz.
 

Ekli dosyalar

Arkadaşlar makro ile satırı nasıl ekleyebiliriz.örnek dosya ektedir.
 

Ekli dosyalar

Merhaba Levent bey,
son örneğim ektedir.Hesaplama bölümünde bir formülü değiştirmek istiyorum değer yoksa hata veriyor.
ayrıca satır eklediğimde formülü eklenen satıra taşımıyor.
Ayrıca atölye formu bölümünde bazı hücreleri klitlemek istiyorum fakat bu seferde makrolar çalışmıyor.
bu konuda yardımcı olabilirmisiniz.

Saygılarımla,
İhsan Yılmaz.
 

Ekli dosyalar

Hata mesajı vermemesi için formülü aşağıdaki ile değiştirin.

=EĞER(EHATALIYSA((AV28-AS28)/AV28);0;(AV28-AS28)/AV28)

Diğer konuyla ilgili olarak dosyaya gerekli ilaveleri yaptım. Sayfa koruma şifresi "excel" dir.

Not: Sayfa koruma işleminde hücreler üzerinde işlem yapabilmek için hücre veya hücre aralığını seçip üzerine sağ-klik yapıp hücre biçimlendir penceresi koruma sekmesinden "kilitli" seçeneğini kaldırmanız yeterlidir.
 

Ekli dosyalar

teşekkür ederim Levent bey,

elinize sağlık

Saygılarımla,
 
İyi günler Arkadaşlar,

ekte bulunan örneğimde iki sayfa bulunmaktadır.

1.sayfa atölye formu
2.sayfa hesaplama,
benim sorunum hesaplama sayfasında c26 hücresinin atölye formundaki c26 hücresiyle eşitlenmesi,ilk satırda sorun olmuyor.Fakat atölye formu bölümünde arıza tespiti ve yapılacak işin kısa tarifi bölümünde satır ekleme butonunu çalıştırdığımda satır eklemesini iki bölümede yapılıyor.Hesaplama bölümünde satır eklendiğinde c26 hücresindeki formül örneğin c27,c28,c29,30 satırına taşınmıyor,
ne kadar satır eklersem ekleyim eşitleme =atölyeformu!c26 formülünün alt hücrelere taşınmasını istiyorum.

Saygılarımla,
 

Ekli dosyalar

Son düzenleme:
arkadaşalar bir önceki mesajımda bulunan örnekteki hatam hakkında bilgi verebilirmisiniz.

saygılarımla,
 
Dosyanızdaki satır ekle butonuna bağlı koddaki aşağıdaki satırı silin. Ayrıca HESAPLAMA sayfasındaki C26 hücresinde bulunan formüldeki "$" işaretlerini kaldırın.


Kod: 
Sheets("HESAPLAMA").Range("C" & sat & ":AP" & sat).ClearContents
 
herkese merhaba,

ben de aşağıdaki dosyada belirtilen 3'lü satırları aralarında 11 boşluk bırakarak sütun içindeki indis sayıları artacak şekilde 80'e kadar aşağı sıralamak istiyorum, açıkcası bu konuda pek bilgi sahibi değilim yeni başlayan birisi olarak anlayabileceğim şekilde yardımcı olup açıklayabilirseniz çok memnun olurum.
 

Ekli dosyalar

Selamlar,

Forumumuza hoşgeldiniz.

Çalışmanıza boş bir modül ekleyip aşağıdaki kodu modüle uygulayın. Daha sonra kodun herhangi bir satırında iken F5 tuşuna basıp makroyu çalıştırın.

Uygulamalar hakkında detaylı bilgi için aşağıdaki linkleri inceleyiniz.

Modül Ekleme
Sayfada Buton Oluşturma Ve Butona Makro Tanımlama

Kod: 
Option Explicit
 
Sub TABLO_OLUŞTUR()
    Dim X As Integer, EK As Byte
 
    Range("E:G").ClearContents
    EK = 1
 
    For X = 5 To 2000 Step 14
        Cells(X, "E") = "AB_" & Format(EK, "00")
        Cells(X + 1, "E") = "CD_" & Format(EK, "00")
        Cells(X + 2, "E") = "EF_" & Format(EK, "00")
        Cells(X, "F") = "xyz"
        Cells(X + 1, "F") = "abc"
        Cells(X + 2, "F") = "klm"
        Cells(X, "G") = "AKL_" & Format(EK, "00")
        Cells(X + 1, "G") = "EKL_" & Format(EK, "00")
        Cells(X + 2, "G") = "ESP_" & Format(EK, "00")
        EK = EK + 1
        If EK = 81 Then Exit For
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Korhan Ayhan' Alıntı:
Selamlar,

Forumumuza hoşgeldiniz.

Çalışmanıza boş bir modül ekleyip aşağıdaki kodu modüle uygulayın. Daha sonra kodun herhangi bir satırında iken F5 tuşuna basıp makroyu çalıştırın.

Uygulamalar hakkında detaylı bilgi için aşağıdaki linkleri inceleyiniz.
Genişletmek için tıkla ...

Merhabalar Sn.Korhan Ayhan,

Göndermiş olduğunuz kodu modüle uyguladım çalıştı, açıklayıcı anlatımlar için ayrıca teşekkür ederim.
Ben de ne zamandır " Selection.Insert Shift:=xlDown" kodu etrafında dolaşıyordum ama bi çözüm bulamamıştım:) demek ki algoritma olarak yanlış veya eksik düşünmüşüm.
Size ne kadar teşekkür etsem azdır, forumda da gayet açıklayıcı bilgiler mevcut ;yavaş yavaş öğrenmeye başladım gibi...

Tekrar teşekkür ederim
Saygılarımla
 
Tekrar merhabalar,

göndermiş olduğunuz koda ek olarak; E sütununda kullanıcının tayin edeceği indisli satırlarda (mesela E sütununda yazılı satırlarda AB_02; AB_45;AB_62 vb.. indisli satırların bulunduğu gruba)
F sütununda yeni indisli olarak başlayacak bir satır eklemek istiyorum.(mesela sırasıyla E:F:G sütunları için AB_02:klm:SCD_01 olacak şekilde SCD_ indisli satırın AB_45'in bulunduğu grupta da SCD_02 olması ; AB_62:klm:SCD_03 v.b..)
bu şekilde yapmak istedim ancak IF ve FOR döngüleriyle pek bir sonuç alamadım:(

Öneri ve tavsiyelerinizi bekliyorum.
 
Sorunumu daha iyi açıklayabileceğine inandığım excel dosyasını ekte gönderiyorum.

Satırlar ve aralarındaki boşluklar örnektir.
 

Ekli dosyalar

  • 2..xlsx
    2..xlsx
    8.4 KB · Görüntüleme: 4
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod: 
Option Explicit
 
Sub TABLO_OLUŞTUR()
    Dim X As Integer, EK1 As Byte, EK2 As Byte
 
    Range("E:G").ClearContents
    EK1 = 1
    EK2 = 1
 
    For X = 5 To 2000 Step 14
        If EK1 = 2 Or EK1 = 45 Or EK1 = 62 Then
            Cells(X, "E") = "AB_" & Format(EK1, "00")
            Cells(X + 1, "E") = "CD_" & Format(EK1, "00")
            Cells(X + 2, "E") = "EF_" & Format(EK1, "00")
            Cells(X, "F") = "klm"
            Cells(X + 1, "F") = "abc"
            Cells(X + 2, "F") = "klm"
            Cells(X, "G") = "SCD_" & Format(EK2, "00")
            Cells(X + 1, "G") = "EKL_" & Format(EK1, "00")
            Cells(X + 2, "G") = "ESP_" & Format(EK1, "00")
            EK1 = EK1 + 1
            EK2 = EK2 + 1
            If EK1 = 81 Then Exit For
        Else
            Cells(X, "E") = "AB_" & Format(EK1, "00")
            Cells(X + 1, "E") = "CD_" & Format(EK1, "00")
            Cells(X + 2, "E") = "EF_" & Format(EK1, "00")
            Cells(X, "F") = "xyz"
            Cells(X + 1, "F") = "abc"
            Cells(X + 2, "F") = "klm"
            Cells(X, "G") = "AKL_" & Format(EK1, "00")
            Cells(X + 1, "G") = "EKL_" & Format(EK1, "00")
            Cells(X + 2, "G") = "ESP_" & Format(EK1, "00")
            EK1 = EK1 + 1
            If EK1 = 81 Then Exit For
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst