Merhabalar;
Bir arkadaşımın önemli olan bir excel dosyası bozulmuş açılıyor ancak verilerde kayma vs var. Bulut’a yedekleme vs de yapılmamış. Dosya kurtma yazılımı önerebilir misiniz daha önceki versiyonlarını diski tarayıp bulmak için çok teşekkürler şimdiden. #verikurtarma #excel
Excel de metin ve sayı içeren hücrelerden sadece sayıyı çıkarmak.
Function sadece_sayi(ifade)
Dim harf As String
Dim uzunluk As Long
uzunluk = Len(ifade)
sadece_sayi = ""
For i = 1 To uzunluk
If IsNumeric(Mid(ifade, i, 1)) Then
sadece_sayi = sadece_sayi & Mid(ifade, i, 1)
End If
Next
End Function
#gif #excel #vba
#Excel'de tek çalışma kitabında 2 ayrı sayfada aynı tablonun olduğunu düşünün. Bir sayfadaki tabloda boyadığım bir ismin diğer sayfada otomatik boyanmasını sağlayabilir miyim?
Evet, Excel'de tek çalışma kitabında 2 ayrı sayfada aynı tabloyu düşünüyorsak, bir sayfadaki tabloda yaptığınız değişikliklerin diğer sayfada da otomatik olarak görünmesini sağlayabilirsiniz. Bu işlem için Excel'in "Hücre Bağlama" veya "Hücre Referansları" özelliğini kullanmanız gerekecektir. Bunu nasıl yapacağınızı adım adım açıklamak için aşağıdaki adımları takip edebilirsiniz:
1. İki Sayfa Oluşturun:
İlk olarak, aynı tabloyu içerecek iki ayrı sayfa oluşturun. Bunun için sayfa adlarını farklı belirleyin, böylece farklı sayfaları rahatça ayırt edebilirsiniz.
2. Veriyi Giriş Yapın:
Her iki sayfada da aynı tabloyu oluşturun ve verileri giriş yapın. İsimleri boyamak istediğiniz hücreleri seçin ve boyayın.
3. Bağlantı Yapısı Oluşturun:
Diğer sayfada otomatik olarak boyanmasını istediğiniz hücreleri, ilk sayfadaki ilgili hücrelere bağlayın. Bağlantı, hedef sayfadaki hücrenin formül kısmında gerçekleştirilecektir.
4. Hücre Referansını Kullanın:
Hedef sayfadaki hücreyi seçin, formül çubuğuna "=" işaretini yazın ve ardından boyanmasını istediğiniz kaynak hücrenin konumunu seçin. Örneğin, eğer ilk sayfadaki boyanmış isimler A1 hücresinden başlıyorsa ve ikinci sayfada da A1 hücresine otomatik boyanmasını istiyorsanız, hedef hücreye "='İlk Sayfa'!A1" şeklinde formül yazabilirsiniz.
5. Diğer Hücrelere de Uygulayın:
Bu bağlantıyı diğer hücreler için de uygulayın. Diğer hücrelerde de aynı formülü kullanabilirsiniz, ancak hücre referanslarını değiştirmeniz gerekecektir. Örneğin, ikinci sayfadaki boyanmış isimlerin A2 hücresinden başladığını varsayalım; bu durumda "='İlk Sayfa'!A2" şeklinde bir formül kullanabilirsiniz.
Bu şekilde, bir sayfadaki tablodaki değişiklikler, diğer sayfadaki bağlı hücrelerde otomatik olarak görünecektir. Ancak, kaynak hücrelerdeki verileri silerseniz, bağlı hücreler de boş görünecektir, çünkü bağlantılar o verilere artık ulaşamayacaktır.
Ayrıca, sayfanın adını ve hücre referanslarını doğru bir şekilde yazmaya dikkat edin. Hücre referanslarını kopyalayarak ve yapıştırarak hata yapmayı önlemek için referansları doğrudan elle girmeniz daha iyidir.
Unutmayın ki bağlantılar sadece hedef sayfada verileri güncelleyecektir, yani iki sayfada da aynı anda değişiklik yapmanız mümkün değildir. Ancak, bir sayfada yaptığınız değişikliklerin diğer sayfada otomatik olarak yansımasını sağlamak için bu yöntemi kullanabilirsiniz.
@ferah Kısa cevap almayı biliyorsan ChatGPT kısa cevap verebiliyor.
Teşekkür ederim. Fakat bu hücredeki yazıları falan çekse de dolguyu çekmiyor. Ya da ben bir yerde yanlış yaptım bilemiyorum.
Ya da tamamen bağımsız istenen herhangi iki sayfa arasında yapılacak ise VBA makrosu yazılabilir, muhtemelen.
Sayfalar bağımsız. Tablolar birebir aynı değil. Fakat tablolarda yazan personel adı soyadı ve numarası aynı, ortak. Bu bilgileri karşılaştırıp eşleştirdiğinde boyansın istiyorum. Mantıklı bir şey bulmaya çalışıyorum ama çözemedim henüz.
Makro işine bakındım da pek bu işe uygun değil gibi geldi. Rutin hale gelen işlemleri yaptırmak için kullanılan bir şey gibi. Benim ise aynı tabloda bir gün boyadığım 2 kişi ile diğer gün boyadığım 2 kişi farklı olacak. Bu yüzden tablo üzerinden dolgu & isim eşleştirmesi yapmasını isterim.
@felixfelicis: Tamam işte dediğiniz gibi makrolar, verileri değil işlemleri standartlaştırır. Makronun işi dolgu ve isim eşleştirmek ve eşleştirmeye göre sonuç üretmek.
@lterlemez tekrar araştırınca istediğime yakın bir şeyler buldum ama genelde hücre bazlı çalışan kodlar. Bendeki senaryoda isimler tablo içerisinde farklı günlerde farklı hücrelerde yazılabilir. Yani tablo isim eşleştirme üzerinden bir ayar yapmak gerek. Bakınmaya devam edeyim bakalım buradan bir şeyler çıkar gibi, teşekkür ederim.
@felixfelicis: Değişmeyecek olana göre yazılmalı zaten, rutini o problemin. Önce spesifik iki sayfaya göre yazınız, sonra herhangi iki sayfaya göre genelleştirmeye çalışınız. Sonra rahat edersiniz.
Excel makrolarını Book/Sheet'e göre değil, Excel geneline göre yazmak her zaman avantajlı oluyor. Dağıtımı da kolay oluyor çünkü. Bir de menü sistemini bozmasa idi MS, her zaman olduğu gibi, tadından yenmiyordu.
Excel'de bir klasörün içerisinde bulunan farklı excel dosyalarını tek bir sayfaya kopyalamam gerekiyordu. Normalde Excel'in bu iş için görseldeki gibi bir aracı var. Ama sadece dosyaların içerisindeki çalışma sayfalarının isimleri aynı ise çalışıyor.
Bende çalışma sayfalarının adını toplu bir şekilde değiştirmenin yolunu aradım ve aşağıdaki python scriptini buldum. Hem not olarak dursun hem de lazım olan olursa kolay bulsun.
#excel
import openpyxl
import os
for x in os.listdir():
if x.endswith(".xlsx"): #eğer dosya uzantısı xlsx ise
ss=openpyxl.load_workbook(x) #ss değişkenine x dosyasını yükle
ws=ss.worksheets[0] #ws değişkenine ss deki ilk sayfayı yükle
ss_sheet = ss[ws.title] #ss_sheet değişkenine ss deki ws.title sayfasını yükle
ss_sheet.title = 'Fruit' #ss_sheet değişkeninin ismini Fruit yap
ss.save(x) #ss değişkenini x dosyasına kaydet
Benimde ilk tercihim o olurdu ama kapalı olan excel dosyalarına erişebilir mi emin olamadım.
Hocam o da varmış 😀 Hem daha pratik. Python ile venv oluşturmaya gerek yok
Sub OPEN_ALL_FILES_IN_FOLDER_RUN_MACRO()
Dim Path As String
'path to your folder with excel files
Path = "C:\Users\LENOVO\Desktop\Fiyat\r\"
Dim fileName As String
' ANY EXCEL FILE
fileName = Dir(Path & "*.xls*")
Application.DisplayStatusBar = False
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While fileName ""
Workbooks.Open Path & fileName
' *****************************************************add code to run on each workbook in the folder********************************************
ActiveSheet.Name = "Balance Sheet"
' ****************************************************end code to run on each workbook in the folder*********************************************
Workbooks(fileName).Close True
fileName = Dir()
Loop
Application.DisplayStatusBar = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
@okanaytimur: Vardır, sonuçta yapmak istediğiniz şey ortak dosya türleri için istenebilecek bir iş.... Kolay gelsin.
Excel'de aralarında boşluk olan satırları doldurmak için pratik bir yöntem.
Özellikle ikincisi işime yaradı.
#excel
@okanaytimur bulaşık deterjanı diycektim !
https://youtu.be/aPL_7FTAGCc?t=186
Toplu bir şekilde dosya adlandırmak için ekstra program indirmeye gerek yok. Excelde A sütünuna dosya adı ve yolunu, B sütununa ise yeni dosya adını ve yolunu görseldeki gibi yazıp aşağıdaki kodu VBA kısmında çalıştırmanız yeterli.
#excel #vba
Klasördeki dosyaların isimlerini de tek seferde getirmek için durumdaki kodu kullanabilirsiniz.
https://teknoseyir.com/durum/1584025
Sub reNamer()
lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Do Until i = lastRow
i = i + 1
bir = "A" + CStr(i)
iki = "B" + CStr(i)
Name ActiveSheet.Range(bir) As _
ActiveSheet.Range(iki)
Loop
End Sub
Bunun için excel çalıştırmaya da gerek yok ki 😀 aynı dizindeyse ufak bir Powershell veya bash script ile çözülür.
$counter = 1
Get-ChildItem -Path "C:\your\directory" -File | ForEach-Object {
Rename-Item $_.FullName -NewName "$counter-$($_.Name)"
$counter++
}
Öyle de dosya adlarını istediğimiz şekle nasıl sokacaz bash script de 😀
Sadece artan sayı şeklinde değil hali hazırda bir yerde bulunan bir listeden de çekme imkanımız oluyor excelde.
Dosyaların hepsi aynı uzantılı ise hepsini seçip ilk dosyaya sağ tıklayıp yeniden adlandır deyin. Boşluk bırakıp enter'a basarsanız (1) (2) (3) diye dosyaları yeniden adladıracaktır.
İnternetten indirilmiş dosyalarda kötü amaçlı kod çalıştırılmasından bahsediyorsanız haklısınız tabi. Ama makro içeren dosyalar varsayılan olarak makronun çalışmasını engelliyor.
Bi önceki durumda Etopla excel de tek seferde diğer sütunları da toplayabileceğimi sormuştum. Konu hakkında bir excel.web.tr forumunda çözüm buldum.
Gif te olduğu gibi tek seferde birden fazla sütunda işlem yapabiliyoruz.
Kaynak : https://www.excel.web.tr/threads/etopla-ile-birden-fazla-suetunu-toplama.207425/#post-1162606
#excel #etopla
https://teknoseyir.com/durum/1640861
Excel ile düşeyara formülünü kullanarak birden fazla sütunu tek formülle getirebiliyoruz.
Bunun için formülde bizden istenen sütun indis sayısı kısmına "{2;3;4}" açıp getirmek istediğimiz sütun numaralarını noktalı virgül ile ayırarak yazmak. Böylece her sütun için yeniden düşeyara formülü yazmak zorunda kalmıyoruz.
Bunun bir benzerini etopla formülü ile yapmak istiyorum. Yine bir koşula bağlı olarak birden fazla sütunu toplayıp yan yana sütunlarda görüntülesin. Bunu yapabiliyor muyuz acaba?
#excel #gif
Merhaba arkadaşlar, excelde bir konuda destek rica edeceğim. A hücresine girilen bilgiye istinaden B-M arasındaki hücrelere Düşeyara ile bilgi çekiliyor. Daha sonraki süreçte genelde 1-2 gün sonra N hücresine de bilgi çekilmiş oluyor. Ben şunu istiyorum N hücresine bilgi geldiği anda A hücresi kilitlensin ve kimse o hücredeki bilgiyi silemesin. Bunu nasıl yapabilirim.
Ayrıca excelde bir hücreye bilgi nasıl girilirse girilsin benim istediğim formatta ve fontta olmasını nasıl sağlarım
örneğin böyle girilmiş TR740006400000134240292178
ben otomatik buna çevirsin istiyorum TR13 0001 5001 5800 7312 6859 54
#excel
#excelyardım
bunu sadece macro enabled excel workbook'ta mı kullanabiliriz?
İsterseniz boş bir Excel dosyası açıp içerisine module ekledikten sonra bu kodu yazıp eklenti olarak kaydedebilirsiniz. Böylece istediğiniz her yerde tekrar tekrar bunu bu işlemleri yapmaya gerek kalmadan düşeyarayı çağırır gibi çağırabilirsiniz.
@okanaytimur teşekkürler. macro enabled kullanıldığında şirket bilgisayarları uyarı veriyordu ondan sormak istedim 🙂
@ponce O uyarıyı genelde NAS sunucusu gibi ağ üzerinden makrolu bir yerden açınca geliyor. Onu da internet seçeneklerinden ağ sürücüsünü güvenli adres olarak eklerseniz çözülür muhtemelen.
@okanaytimur detaya hakim değilim hocam ama çok kısıtlı, büyükj ihtimalle benim yapabileceğim bir şey dfeğildir.
@ponce O da bu şekilde benim file:///192.168.1.193/ yazdığım yere siz kendi ortak sunucu adresinizi yazacaksınız sasdece.
vb scriptlerini yasaklıyacaktı mic.
Şimdi gördüm de baya bi zaman alır bunun değişmesi. Aşağıdaki kaynakta 15 yıla yakın diyor. VBA yı değiştirmek milyonlarca şirket ve kullanıcının makrolarının patlaması demek. Doğru dürüst bir geçiş sunmadan bunu yapamazlar.
https://www.thespreadsheetguru.com/are-vba-macros-dead/