Travis soruyor:
Bazı metni ayrı sütunlara biçimlendirmeye çalışıyorum. Metin aşağıdaki gibi tek sütundur:
Bir Şirket Adı A PO KUTUSU 1 NEWARK NJ 07101 Firma Adı B PO KUTUSU 2 1400 SANS SOUCI PARK YOLU WILKES-BARRE PA 18703 Firma Adı C PO KUTUSU 3 CHICAGO IL 60694 Firma Adı D PO KUTUSU 4 CLEARFIELD UT 84015 Şirket Adı E PO KUTUSU 5 OGDEN UT 84401 Firma Adı F PO KUTUSU 6 BALTIMORE MD 21264-4351 Testi excel olarak biçimlendirdiğimde bu sütunu yukarıda gösterildiği gibi yaptım. Şirkette birden çok satır yerine verilerin tek satırda görünmesini sağlayabileceğim bir formül bilmek istiyorum, eğer bana aşağıdaki formülü bir satırda ancak farklı sütunlarda verirseniz formülün sonuçlanması gerekir:
Hepsi aynı SATIR üzerinde
Bir B C Şirket Adı A PO KUTUSU 1 NEWARK NJ 07101 Vlookup'ları, hlookup'ları ve pivot tabloları kullanıyorum, ancak satır satırsa tarihi nasıl alacağımı çözemiyorum.
Sıralayarak şirket adlarının bir sütunda satır satır görünmesini sağladım ve aradığım sonuçları bana vermek için bir vlookup ile bir hlookup kombinasyonu kullanabileceğimi düşündüm ama bilmiyorum eter aramasına yerleştirmek için uygun formül. Ayrıca bazı DSUM işlevlerini de test ettim ancak hiçbiri benim için çalışmıyor mu? Lütfen sorunumu neyi veya nasıl çözeceğimi bana bildirin.
Bunun bir makro kullanılarak kolayca elde edilebileceğini düşünüyorum. Bunu dene.
Sub CopyAcross() Dim i As Long Dim NRow As Long Dim LastRow As Long NRow = 2 'First Row TO COPY, change this if you want i = 2 'First Row where the data appears, I assumed it started in A2 LastRow = Range("A65536").End(xlUp).Row While i <= LastRow Range(Cells(i, 1), Cells(i, 1).End(xlDown)).Copy Cells(NRow, 2).PasteSpecial Transpose:=True 'In here, I'm copying to Column 2, Next availabe Row. You can change the 2 if you want. NRow = NRow + 1 i = Cells(i, 1).End(xlDown).End(xlDown).Row Wend End Sub
