cellsj

I have the following data in columns E and F. In G via a loop I am trying to populate - I have given a few examples in the right column as to how it should look. This attempt isn't quite working. Sub Loop1() Dim i As Integer Dim j As Integer NumberRows =...

Hallo, I am quite newbie in writing VBA codes. I use VBA occasionally in my work but it saves me many times. Now I am facing issue with .GetPivotData which I am trying to use for thefirst time but still get Runtime error 1004. My code is as follows: Sub data() Dim IKN_PT As PivotTable Set...

This is complicated to explain, so bear with me please I have a for next loop set up as follows For j = 2 To LastRow Step 1 a = Cells(j, 53) If a = "1" Then tcsorting.Show Else Cells(j, 8) = Cells(j, 53) End If Next If A = 1 then a form called tc sorting...

Hi everyone, I am struggling to write a loop which needs to do the following: Check if Cells(J,1) = Cells(J+1,1) and Cells(J,3) = Cells(J+1,4) when >0 or Cells(J+1,4) = Cells(J,3) when >0 then delete both the row J and J+1 I have managed to create a loop that check if Cells are equal (but...

Hello, I am trying to get the following statement to work, but I get a debug, based on the code up to then... can someone tell me what i need to change to get this to run. effectively there are two scenarios which should return "on target". If Cells(j, 30) >= 2 And Cells(j, 26) >= 6 Or...

Hi Experts, I have been working for hours on this and have had no luck in getting this to write to the Excel file. I have included the code below and what the formula should be looking like in the Excel file. Any help or thoughts would be greatly appreciated. Also, please let me know what...

Hi! I import some data from Word document and paste it into a worksheet. The word document contain both text and many small images. The images are only with 4 colors, but many of them. I want to get the color of images. I get the RGB color number, but they all have the same number. It should...

I am trying to change font color if the date is less than yesterday AND the time is before 16:00. Hi the fields are in this custom format. m/d/yyyy h:mm Here's my code so far and it works for the date part, but I can't figure out how to do the cut off time portion. LR2 =...

I use this macro on many different spreadsheets and would like to remove the excess formatting. If you look at the sample spreadsheet you see the highlight goes row by row all the way across. I only want the formatting to apply to the active area. In the case of the sample spreadsheet columns A...

Hello, I have a problem with my VBA code, it takes a lot of time to execute even if the code seems quite simple... :confused: For the context, I have a very large sheet with a pattern of 3 columns (Month, Year and Value) and I want to delete the three of them if the value cell is empty. It has...

Hi, Before starting the question, just want to let you guys know that I am not expert in excel vba. My knowledge is average. I am working on creating the list of excel files in the folders and subfolders. I found a macro which can list all the files in the folder and subfolders which is working...

Umm, I forgot why this snippet works...it finds unique values within a selection. I paste only the portion here to make a point. It transposes data in cell Cells(j, 122), Cells(j, 122) Dim V As Variant, Data As Variant Data = Selection With CreateObject("Scripting.Dictionary") For Each V...

Hi, I am not sure if this can be done with formulas and Excel tables, or whether I should try something in VBA. What do you think? I need help from design point of view, what do you think should be utilized. for each id in input table numRows = countif frequency rows + nonempty cells within...

Ive extracted around 100 rows of string where the strings come out like this in excel (in one cell) " I dag 17:00 2.200 Tottenham Hotspur 3.600 X 3.700 Chelsea I dag 14:30 2.850 Huddersfield Town 3.200 X 2.750 Newcastle United +...

Sub data_getir() Application.DisplayAlerts = False Application.Calculation = XlCalculation.xlCalculationManual Dim X As Date Dim t As Date Dim AWB As String X = Application.WorksheetFunction.WorkDay(Date, -1, Worksheets("Makro").Range("S1:S20")) t = InputBox("Lütfen tarih giriniz"...

eski_konut = "G:\HOME\MALIKONT\_Hazine_Kontrol\TCU_" & eski_yil & "\Bilanço_Kontrolleri\Krediler\Konut\" & "(" & eski_ay & ")_" & eski_aay & "\" & "KONUT_" & eski_yil & "-" & eski_ay & "-" & eski_gun & ".xlsm"DirFile1 = "G:\HOME\MALIKONT\_Hazine_Kontrol\TCU_" & yil &...